5,386
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
dxf1219 2007-07-29
- 打赏
- 举报
OK了，谢谢楼上的。
阿发伯 2007-07-29
- 打赏
- 举报
00：00：30是30秒吗？Timer1.InterVal = 1000为1秒
阿发伯 2007-07-29
- 打赏
- 举报
Timer1.InterVal 设置为30000
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage('Click');
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Button1.Click;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage('Click');
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Button1.Click;
end;
