如何讓自閃爍 |
|
尚未結案
|
|
QOO10
初階會員   發表：59 回覆：89 積分：29 註冊：2002-12-25 發送簡訊給我 |
|
|
chih
版主 發表：48 回覆：1186 積分：639 註冊：2002-04-02 發送簡訊給我 |
Form放一個Timer,
procedure TForm1.Timer1Timer(Sender: TObject); begin if Label1.Font.Color=clBlue then //clBlue是你Label1的顏色預設值 Label1.Font.Color:=clRed else Label1.Font.Color:=clBlue; end;TRY TRY SEE 引言: 請教各位高手如何讓 lable.caption or edit.text 內的字閃爍!!謝謝發表人 - chih 於 2003/02/25 17:26:39 發表人 - chih 於 2003/02/26 13:04:11 |
|
ddy
站務副站長  發表：262 回覆：2105 積分：1169 註冊：2002-07-13 發送簡訊給我 |
也是可以用visible
var
ibool:Boolean ;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
ibool:=not ibool;
Label1.Visible :=ibool;
end; procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Interval :=300;
ibool:=true;
end; 此法僅適用label
|
|
ddy
站務副站長 發表：262 回覆：2105 積分：1169 註冊：2002-07-13 發送簡訊給我 |
另一個方法，與chih 兄所提的類似
差異在於，先行保留字體顏色，留待顯示用
隱藏時，讓底色等於前景色(字體顏色)
var
icolor:TColor ; //字體顏色
ibool:Boolean ;
procedure TForm1.Timer1Timer(Sender: TObject); begin
ibool:=not ibool;
if ibool=true then
Label1.Font.Color:=icolor //顯示
else
Label1.Font.Color:=label1.Color ; //隱藏
end; procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Interval :=300;
icolor:= Label1.Font.Color;
ibool:=true;
end;
此法可將label 換成 edit 亦可 |
|
QOO10
初階會員 發表：59 回覆：89 積分：29 註冊：2002-12-25 發送簡訊給我 |
引言: 另一個方法，與chih 兄所提的類似 差異在於，先行保留字體顏色，留待顯示用 隱藏時，讓底色等於前景色(字體顏色)一定要用 timer 做嗎!! |
|
flyup
資深會員  發表：280 回覆：508 積分：385 註冊：2002-04-15 發送簡訊給我 |
|
|
chih
版主 發表：48 回覆：1186 積分：639 註冊：2002-04-02 發送簡訊給我 |
|
|
QOO10
初階會員 發表：59 回覆：89 積分：29 註冊：2002-12-25 發送簡訊給我 |
|
|
flyup
資深會員 發表：280 回覆：508 積分：385 註冊：2002-04-15 發送簡訊給我 |
|
|
jackkcg
站務副站長 發表：891 回覆：1050 積分：848 註冊：2002-03-23 發送簡訊給我 |
這是一篇 ◎黃金文章◎ 不過好像 QOO10 兄 忘了給分或忘了結案 希望 chih 也就包容包容 也許 Q 兄真的忘了 不過只來求經 卻不唸經的人 大有人在 所以 chih 兄 人在做 大家在看拉 解問題的人 也許學的更深 邏輯更清楚 變化更多 chih 兄 做對的事 別人看在眼理 佩服心理 算 庵 心理給你加分啦 有沒有要選舉阿 庵精神上投你一票 哈哈 也對其他 ddy flyup 等為 台灣 delphi 熱心之人 心理加分 哈哈 QOO10 兄有空的話 順個手把 也希望你改天幫助有問題的網友解惑 *********************************************************
哈哈&兵燹
最會的2大絕招 這個不會與那個也不會 哈哈哈 粉好 Delphi K.Top的K.Top分兩個字解釋Top代表尖端的意思,希望本討論區能提供Delphi的尖端新知
K.表Knowlege 知識,就是本站的標語:Open our mind to make knowledge together!
希望能大家敞開心胸,將知識寶庫結合一起
------
********************************************************** 哈哈&兵燹 最會的2大絕招 這個不會與那個也不會 哈哈哈 粉好 Delphi K.Top的K.Top分兩個字解釋Top代表尖端的意思,希望本討論區能提供Delphi的尖端新知 K.表Knowlege 知識,就是本站的標語:Open our mind |
|
chih
版主 發表：48 回覆：1186 積分：639 註冊：2002-04-02 發送簡訊給我 |
|
|
QOO10
初階會員 發表：59 回覆：89 積分：29 註冊：2002-12-25 發送簡訊給我 |
|
|
ddy
站務副站長 發表：262 回覆：2105 積分：1169 註冊：2002-07-13 發送簡訊給我 |
|
|
hidylan
一般會員  發表：14 回覆：17 積分：6 註冊：2004-12-20 發送簡訊給我 |
|
|
meta
中階會員 發表：3 回覆：60 積分：57 註冊：2004-06-09 發送簡訊給我 |
//請問要如去控制閃爍的次數?
//引用chih大的文章
可以設一個全域變數，控制timer做的次數.
var i:Integer;//全域變數
...
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Inc(i);
if i>5 then
begin
Timer1.Enabled:=False;
exit;
end
else
begin
if Label1.Font.Color=clBlack then
Label1.Font.Color:=clRed
else
Label1.Font.Color:=clBlack;
end;
end;
|
發表時間：2003-02-25 15:16:19
IP:61.229.xxx.xxx 未訂閱
系統時間：2024-05-18 23:25:24
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |