Question

delphi 延时问题

问题是这样子的~
单击一个按钮后 按钮不可用~延迟1分钟 ~LED灯变颜色~
用Ttimer控件怎么写~
我用sleep函数 程序反应比较慢~而且延迟一分钟后按钮才变为不可用状态

Answer 1

sleep是线程停止不好用的，你这样：

button1.Enable:=False;
TTimer1.Interval:=60000;

procedure TForm1.TTimer1Timer(Sender: TObject);
begin
TTimer1.Enable:=False;
button1.Enable:=True;
end;

Answer 2

百度一下找到Delay这个过程
然后使用的时候和sleep一样用法
就不会出现1分钟后按钮才变为不可用了

Answer 3

TTimer计时呀！循环判断。
如果使用进程，效果更好。

Answer 4

按钮不可用的话，怎么可能接受Click事件？