Delphi 跑馬燈做法參考

if label1.left+label1.width>=0 then
label1.left:=label1.left-3
else
begin
inc(ordn);
if ordn>=memo1.lines.count then ordn:=0
else if trim(memo1.lines[ordn])=” then ordn:=0;
label1.left:=label1.Parent.Width;
label1.caption:=memo1.lines[ordn];
end;

備註:
1.Form出現捲軸
Form1.HorzScrollBar.Visible := False;
2.Timer不要設定太慢
3.ordn設為private變數(不要設定在timer事件)

我要留言

留言

發表迴響

你的電子郵件位址並不會被公開。