如何让标签闪烁？请各位前辈相助，小弟在线等待！

捷哥1999 2004-05-14 01:24:09

我想在窗体上的标签能够闪烁，应该如何做到，请各位前辈相助，小弟在线等待！！

...全文

136 15 打赏收藏转发到动态举报

写回复

用AI写文章

15 条回复

切换为时间正序

请发表友善的回复…

发表回复

xzhifei 2004-05-14

打赏
举报

呵呵，楼上最好

tanyun1111 2004-05-14

打赏
举报

可以在Timer下编程
Procedure TForm1.Timer1Timer(sender:object)
begin
label1.visible:=not label1.visible;
end;

楚人无衣 2004-05-14

打赏
举报

nSCSI(摩洛客中文論壇)：不会的，你再看看；我加它在一个单独的线程里，否则我也不用贴那么多了

dongfanghui 2004-05-14

打赏
举报

1、最好不要用第三方控件，虽然也没有什么大碍，但有些时候很难缠。
2、用TIMER实现最好了，但尽量不要用SLEEP（X），会降低程序效率。

nSCSI 2004-05-14

打赏
举报

weizi2000(秋风啊) 你用sleep() 的办法会使软件和死机一样。

只要改一下timer的间隔时间就行了。

Sorder 2004-05-14

打赏
举报

如果不想处理的过于复杂，一个timer就可以处理了

liyu001xj 2004-05-14

打赏
举报

好简单问题

chentony 2004-05-14

打赏
举报

就是這樣，要是覺得顏色不夠的話
你也可以用隨機函數產生，對應多種顏色。

楚人无衣 2004-05-14

打赏
举报

给你一个简单的，推荐用楼上的Timer方法：
type
TFlashLabel = class(TThread)
private
{ Private declarations }
protected
procedure Execute; override;
end;

TForm1 = class(TForm)
Label1: TLabel;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
procedure FlashLabel;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FlashLabel;
begin
Label1.Color := clLime;
Label1.Repaint;
Sleep(500);
Label1.Color := clSkyBlue;
Label1.Repaint;
Sleep(500);
Label1.Color := clLime;
Label1.Repaint;
Sleep(500);
Label1.Color := clSkyBlue;
Label1.Repaint;
Sleep(500);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
TFlashLabel.Create(false);
end;

{ FlashLabel }

procedure TFlashLabel.Execute;
begin
inherited;
self.FreeOnTerminate := true;
Form1.FlashLabel;
end;