關於Timer計時器的問題 |
尚未結案
|
jimm
一般會員 發表:10 回覆:9 積分:3 註冊:2004-09-16 發送簡訊給我 |
|
change.jian
版主 發表:29 回覆:620 積分:439 註冊:2003-06-02 發送簡訊給我 |
|
andychang1690
資深會員 發表:20 回覆:694 積分:442 註冊:2003-03-14 發送簡訊給我 |
jimm:請參考 http://delphi.ktop.com.tw/topic.php?topic_id=35393 【Delphi】【問題】請問Panel.Caption 可否讓文字像走馬燈順暢滾動 答題得分者為:ha0009 但我認為sos_admin版大最簡單:引用sos_admin版大的話: 在panel上放個label就可以實現上下左右,還有其他方式的現實,不論是什麼字體系統支援就可以。 procedure TForm1.Timer1Timer(Sender: TObject); BEGIN Timer1.Enabled=false; if Label1.Left5 else Label1.Left:=0; // if (Label2.Left Label2.Width > 0) // 向左 // Label2.Left:=Label2.Left-5 // else // Label2.Left=Panel1.Width; Timer1.Enabled=true; END; 由慢到快..再由快到到慢你可以改變Timer1.Interval數值, 或改變範例藍字5。 請參考!Andy Chang
------
Andy Chang |
change.jian
版主 發表:29 回覆:620 積分:439 註冊:2003-06-02 發送簡訊給我 |
時間的快慢,我大概想到用陣列預先設定去控制,如下:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; Label6: TLabel; Label7: TLabel; Label8: TLabel; Label9: TLabel; Label10: TLabel; Button1: TButton; procedure Button1Click(Sender: TObject); private FStop:Boolean; public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); const DelayArray:array[0..9] of integer = (100,90,80,70,60,60,70,80,90,200); var i,j,Index:Integer; aLab:TLabel; begin Index:=0; for j:=0 to High(DelayArray) do begin for i:=1 to 10 do begin aLab:=(Self.FindComponent('Label' IntToStr(i)) as TLabel); aLab.Font.Color:=clRed; aLab:=(Self.FindComponent('Label' IntToStr(i-1)) as TLabel); if not(Assigned(aLab)) then aLab:=Label10; aLab.Font.Color:=clWindowText; Sleep(DelayArray[j]); Application.ProcessMessages; end; end; end; end. |
jimm
一般會員 發表:10 回覆:9 積分:3 註冊:2004-09-16 發送簡訊給我 |
|
andychang1690
資深會員 發表:20 回覆:694 積分:442 註冊:2003-03-14 發送簡訊給我 |
jimm:對不起誤解你的題意,下列方式僅代表我的思考作法! 不見得最佳! 對不起!習慣C ,一下給C 希望你看的懂 跑到那一個圖形我想你要自行處理假設你現有24個圖檔。建議 每個圖檔下皆有TPanel,Panel依序排列Panel1、Panel2、Panel3‧‧‧ 圖型要做以下設定: Image1->Align=clClient; Image1->Transparent=true; Image1->Center=true; 程式要 #includeAndy Chang 發表人 - andychang1690 於 2004/10/15 09:13:43
------
Andy Chang |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |