Delphi Tips

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