[BCB] 電光掲示板のようにスクロールするラベル

電光掲示板の文字のようにスクロールするラベルです。 Form上にLabelとTimerをひとつずつ置きます。

スクロールさせたい文字列はCaptionStringという内部変数に入れておきます。TimerのIntervalは200くらいにしておきます。

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
　static int x=Label1->Width;
　RECT r;
　int w;

　r.left=0;
　r.top =0;
　r.right=Label1->Width;
　r.bottom=Label1->Height;

　w=Label1->Canvas->TextWidth(CaptionString);
　if (w+x<0) X=Label1->Width;

　Label1->Canvas->Brush->Color=Label1->Color;
　Label1->Canvas->Brush->Style=bsSolid;
　Label1->Canvas->FillRect(r);
　Label1->Canvas->TextRect(r,X,1,CaptionString);
　Label1->Update();
　x=x-10;//移動量
}

[Delphi] LabelのCaptionを改行したい

Labelに複数行の文字列を表示する方法です。

　Label1.Caption:='1行目'+#13#10+'2行目';

#13、#10はそれぞれCRコード、LFコードを表します。