急！！！一个简单问题，第一个解决问题的90分，在线等！(100分)

先点击Button1，2、3秒后点击Button2，但是两个按钮的标题同时改变，想让他按照自己的延时显示标题。请各位指教。
procedure TimeDelay(DT: DWORD);
var
TT : DWORD;
begin
TT := GetTickCount();
while GetTickCount()-TT<DTdo
begin
Sleep(10);
Application.ProcessMessages;
//
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
button1.Caption:='0';
timedelay(5000);
button1.Caption:='1';
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
button2.Caption:='0';
timedelay(10000);
button2.Caption:='2';
end;

大家帮帮忙吧！！！！

你运行2个实例
1个实例点button1
1个实例点button2
你就知道结果了

其实button1已经运行结束了，但是caption 没有显示出来
直到button2运行结束 所以会同时显示出来啊

不明白，能再清楚一些吗，谢谢！

对，是最后同时显示出来，怎么才能让1先显示出来。

你用我的方法做一下就知道了

大哥我不知道怎么弄能详细一点吗？

有意思，我试验了，是先显示后按的哪个按钮，然后显示先按的哪个按钮。谁能解释一下原因？

还有意思，郁闷了一晚上了，哪位高手请赐教！！！

type
Tabc=class(tthread)
public
button:Tbutton;
dt1:Integer;
procedure Execute;
override;
constructor Create(Threadbutton:TButton;dt:Integer);
end;

var
Form1: TForm1;
abc:Tabc;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
abc:=Tabc.Create(button1,5000);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
abc:=Tabc.Create(button2,10000);
end;

{ Tabc }
constructor Tabc.Create(Threadbutton: TButton;dt:Integer);
begin
button:=Threadbutton;
dt1:=dt;
Inherited Create(False);
end;

procedure Tabc.Execute;
var
TT:Integer;
begin
inherited;
button.Caption:='0';
TT := GetTickCount();
while GetTickCount()-TT<DT1do
begin
end;
button.Caption:=button.Name;
end;

运行application.ProcessMessages
它把消息处理掉了
所以就不能显示caption
到最后application.ProcessMessages结束 才会重新处理消息

所以我用现成做了一个，成功~~

非常感谢！！！

我想你对整个处理的流程有误解。
procedure TForm1.Button1Click(Sender: TObject);
begin
button1.Caption:='0';
timedelay(5000); ----------------
button1.Caption:='1';
<--------| |
end;
| |
| |
procedure TimeDelay_1(DT: DWORD);
<--|--------|
var |
TT : DWORD;
|
begin
|
TT := GetTickCount();
|
while GetTickCount()-TT<DTdo
| <----------------
begin
| |
Sleep(10);
| |
Application.ProcessMessages;
-----|-------------- |
end;
| | |
end;
------------------- | |
| |
procedure TForm1.Button2Click(Sender: TObject);
<---- |
begin
|
button2.Caption:='0';
|
timedelay(10000);
--------------------- |
button2.Caption:='2';
<-------------- | |
end;
----------|---------|-----
| |
procedure TimeDelay_1(DT: DWORD);
<----- | ---------
var |
TT : DWORD;
|
begin
|
TT := GetTickCount();
|
while GetTickCount()-TT<DTdo
|
begin
|
Sleep(10);
|
Application.ProcessMessages;
|
end;
|
end;
-------------
因此执行顺序是
procedure TForm1.Button1Click(Sender: TObject);
begin
button1.Caption:='0';
timedelay(5000);
button1.Caption:='1';
end;
然后在timedelay(5000);的某一个Application.ProcessMessages中处理Button2.Click,然后跳转到BUTTON2_CLICK事件处理程序，并且一直到BUTTON2_timedelay完毕BUTTON2的处理之后才返回
button1.Caption:='0';
button2.Caption:='0';
button2.Caption:='2';
button1.Caption:='1';
这就是你问题的原因。另外我看不出GetTickCount的必要,这个函数会不停的查询CPU,消耗CPU资源，因此除非必要时最好不要使用的,对于秒级别的间隔,完全没比要用此函数.还有线程,定时器都属于比较稀缺的系统资源,最好能够规划使用.