エントリーの編集
![loading...](https://b.st-hatena.com/bdefb8944296a0957e54cebcfefc25c4dcff9f5f/images/v4/public/common/loading@2x.gif)
エントリーの編集は全ユーザーに共通の機能です。
必ずガイドラインを一読の上ご利用ください。
記事へのコメント0件
- 注目コメント
- 新着コメント
このエントリーにコメントしてみましょう。
注目コメント算出アルゴリズムの一部にLINEヤフー株式会社の「建設的コメント順位付けモデルAPI」を使用しています
![アプリのスクリーンショット](https://b.st-hatena.com/bdefb8944296a0957e54cebcfefc25c4dcff9f5f/images/v4/public/entry/app-screenshot.png)
- バナー広告なし
- ミュート機能あり
- ダークモード搭載
関連記事
Delphi Tips
1.TTimerとTImageをFormに貼り付けてください。 2.フォームの変数宣言で private { Private 宣言 } pa... 1.TTimerとTImageをFormに貼り付けてください。 2.フォームの変数宣言で private { Private 宣言 } panelMoveX:integer; panelStr:string; を宣言してください。 3.TTimerのOnTimerイベントで下記のソースを入力して実行してください procedure TForm1.Timer1Timer(Sender: TObject); begin PanelStr := 'ABC'; //出力文字列 PanelMoveX := PanelMoveX - 1; //移動量計算 if (Image1.Canvas.TextWidth(PanelStr) + PanelMoveX < 0) then PanelMoveX := Image1.Width; with Image1.Canvas do begin Brush.Co