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事件)

我要留言

留言

關於 林壽山

林壽山 資深系統分析師,擅長PHP網頁設計(CodeIgniter、Laravel)框架、Delphi程式設計、資料庫設計、C# WinForm/WebForm程式設計
本篇發表於 生活雜感 並標籤為 , , 。將永久鏈結加入書籤。

發表迴響

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