程序停止运行的问题!!

Question

我想将一窗体隐藏，但在隐藏之前，我想让它显示一段时间，也就是在显示该窗体后，使程序暂停一段时间，请问有没有这样的函数，若没有请教其他的方法。

Answer 1

试试:
procedure Delay(MilliSeconds: dword);
var 
  Event : THandle;
begin 
  Event := CreateEvent(nil,True,False,nil);
  WaitForSingleObect(Event,MilliSeconds);
  CloseHandle(Event);
end; 

Answer 2

用一个很简单的方法：
在显示的Form上放置一个TTimer，显示Form的时候用ShowModal，用TTimer定时关闭Form就可以了