Question

DELPHI如何实现5秒内自动关闭窗体

Answer 1

你要以在窗体上放一个Timer1控件，在里面添加上关闭程序的代码。
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Form1.Close;
end;
然后将其的Interval设计为0,就是不启动。
当你想让其5秒后关闭时，就将Timer1的Interval设计为5000就可以了。这样5秒后就会运行其中的关闭程序代码来关闭窗体了。

Answer 2

'这个简单 implementation//定义全局变量i var i:Integer; {$R *.dfm} //添加一个Timer控件,双击这个控件 //代码为 procedure TForm1.Timer1Timer(Sender: TObject); begin i:= i+1; if i=5 then Form1.Close; end;

Answer 3

设置timer控件的响应周期时间为:5*1000。 procedure TForm1.Timer1Timer(Sender: TObject); begin Form1.Close; Timer1.enable:=false; end;