線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1509
推到 Plurk!
推到 Facebook!

請教一個問題,在kylix下類似跑馬燈的實現

尚未結案
watanabe
一般會員


發表:16
回覆:14
積分:6
註冊:2002-10-22

發送簡訊給我
#1 引用回覆 回覆 發表時間:2002-10-28 11:33:14 IP:61.171.xxx.xxx 未訂閱
各位大哥,我想請教一個問題 - kylix下面,類似跑馬燈的訊息欄是否可以實現呢? - 我們常用的是label控件的text屬性來顯示文字訊息的 - 但是label是不能實現動畫效果
watanabe
一般會員


發表:16
回覆:14
積分:6
註冊:2002-10-22

發送簡訊給我
#2 引用回覆 回覆 發表時間:2002-10-28 15:43:51 IP:61.171.xxx.xxx 未訂閱
問題已經得到了解決,我讓label1從form的下方一直向上平移 - 當平移到form頂端的時候,label1得到free,代碼如下: - 希望給以後遇到和我類似問題的同仁們一點點的啓示,也希望大家幫我的爛程序有所改進 procedure TForm1.Timer1Timer(Sender: TObject); var i:integer; begin label1.top:=label1.Top-10; if label1.top=0 then label1.Free; end;
watanabe
一般會員


發表:16
回覆:14
積分:6
註冊:2002-10-22

發送簡訊給我
#3 引用回覆 回覆 發表時間:2002-10-28 17:54:47 IP:61.171.xxx.xxx 未訂閱
之前寫的程式是存在很大問題的,以下是我修改以後的程式代碼 - 希望可以少一些bug procedure TForm1.Timer1Timer(Sender: TObject);    begin label1.Left:=label1.Left-10; if label1.Left<10 then begin timer1.Enabled:=false; label1.Visible:=false; end; end;
bruce0211
版主


發表:157
回覆:668
積分:279
註冊:2002-06-13

發送簡訊給我
#4 引用回覆 回覆 發表時間:2002-10-29 12:37:21 IP:210.208.xxx.xxx 未訂閱
希望大家踴躍公開自己的研究心得 哪怕是一些小程式也好 我們好孤單...>_<
系統時間:2017-10-18 2:35:11
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!