如何控制按钮

Question

如何控制一个按钮按下以后 过几秒后（3秒）自动弹起 恢复初始状态？

Answer 1

{一个SpeedButton，一个计时器Timer}procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  Timer1.Enabled := True;
end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
  SpeedButton1.Down := False;
  Timer1.Enabled := False;
end;procedure TForm1.FormCreate(Sender: TObject);//初始设置
begin
  SpeedButton1.GroupIndex := 1;
  SpeedButton1.AllowAllUp := True;
  Timer1.Interval := 3000;
  Timer1.Enabled := False;
end;