【结贴】如何实现10秒钟自动关闭当前的窗体？**

565118680 · 发表于 2007-11-8 14:06:47

如何实现10秒钟自动关闭当前的窗体?

lisb · 发表于 2007-11-8 14:17:49

用Timer控件。

lisb · 发表于 2007-11-12 10:51:30

这个还有问题吗？

565118680 · 发表于 2007-11-12 10:53:47

恩,思想明了,但不知道如何下手为好!

lisb · 发表于 2007-11-12 11:23:56

在功能上写一个方法
procedure TSPLRFunc.Close;
begin
self.Terminate;
end;

然后在功能的窗体上来调
procedure TMainForm.Timer1Timer(Sender: TObject);
begin
(FuncBroker.Func as TSPLRFunc).Close;
end;

这样可否明了？

565118680 · 发表于 2007-11-16 15:20:58

结，大哥

		自动登录	找回密码
密码			立即注册