フリーソフト

TLabel

[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コードを表します。