主题：[讨论]延时操作
wwxxff711
[专家分：10] 发布于 2008-05-28 19:14:00
在主窗口中，按下一个按钮，要子窗口过几十秒后再弹出！！
中间的延时，怎么实现？？
回复列表 （共1个回复）
沙发
长尾兔 [专家分：3630] 发布于 2008-05-29 20:15:00
简单点想, 用一个Timer就搞定:
procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Interval := 20000;//20秒
Timer1.Enabled := True;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Form2.Show;
end;
我来回复
您所在位置：