如何讓Label裡面的字閃爍呢？

發文回覆瀏覽次數：1405

推到 Plurk!

推到 Facebook!

如何讓Label裡面的字閃爍呢？

答題得分者是：RaynorPao

leeli
初階會員

發表：57
回覆：55
積分：27
註冊：2003-06-25

發送簡訊給我

#1 引用回覆回覆

發表時間：2003-10-23 22:28:57

IP:211.76.xxx.xxx 未訂閱

Dears: 如標題，請問該如何讓Label的文字能閃爍呢？小弟我是BCB的新手，若有發問一些蠢問題，敬請見諒。對於各位的大力協助，感激不盡！發表人 - taishyang 於 2003/10/23 22:43:40

------
小弟我是BCB的新手，若有發問一些蠢問題，敬請見諒。
對於各位的大力協助，感激不盡！

RaynorPao
版主

發表：139
回覆：3622
積分：7025
註冊：2002-08-12

發送簡訊給我

#2 引用回覆回覆

發表時間：2003-10-23 22:37:42

IP:61.221.xxx.xxx 未訂閱

引言: Dears: 如標題，請問該如何讓Label的文字能閃爍呢？小弟我是BCB的新手，若有發問一些蠢問題，敬請見諒。對於各位的大力協助，感激不盡！

leeli 你好: 用 Timer 來做可以嗎?? < class="code"> bool gb=false; void __fastcall TForm1::Timer1Timer(TObject *Sender) { gb=(gb)? false: true; Label1->Font->Color=(gb)? clRed: clBlue; } void __fastcall TForm1::Button1Click(TObject *Sender) { Timer1->Interval=500; Timer1->Enabled=true; } void __fastcall TForm1::Button2Click(TObject *Sender) { Timer1->Enabled=false; } -- Enjoy Researching & Developing --

------
-- 若您已經得到滿意的答覆，請適時結案!! --
-- 欲知前世因，今生受者是；欲知來世果，今生做者是 --
-- 一切有為法，如夢幻泡影，如露亦如電，應作如是觀 --

系統時間：2024-05-08 3:27:16

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！