delphi 延时问题
问题是这样子的~
单击一个按钮后 按钮不可用~延迟1分钟 ~LED灯变颜色~
用Ttimer控件怎么写~最好有个例子参考下
我用了下sleep函数 程序反应比较慢~而且延迟一分钟后按钮才变为不可用状态~led灯跟着变色~


[解决办法]
btn.OnClick
begin
//变色
btn.Enabled:=False;
timer.Enabled:=True;
end;
timer.OnTimer
begin
btn.Enabled:=True;
end;

[解决办法]

Delphi(Pascal) code

procedure TForm1.Button1Click(Sender: TObject);begin  self.Button1.Enabled:=false;  self.Timer1.Enabled:=false;  self.Timer1.Interval:=60000;  self.Timer1.Enabled:=true;end;procedure TForm1.Timer1Timer(Sender: TObject);begin  self.ChLed1.ForeColor:=clred;  self.Timer1.Enabled:=false;  self.Button1.Enabled:=true;end;
[解决办法]
Type sleepC=class(TThread)
    procedure execute;override;
end;
procedure sleepC.execute;
begin
   sleep(60000);
   self.ChLed1.ForeColor:=clred;
end;
procedure TForm1.Button1Click(Sender: TObject);
var a:sleepC;
begin
a:=sleepC.create(false);
end;

[解决办法]
功能很简单

一个Button，一个Timer：
设置Timer时间间隔60000，False
Delphi(Pascal) code
procedure TForm1.Button1Click(Sender: TObject);begin  Button1.Enabled:=False;  Timer1.Enabled:=True;end;