在线等待,立即给分!
请问在OnCreate中怎样写,才能销毁正在创建的窗口.
procedure TForm1.FormCreate(Sender: TObject);
begin
if(not OK)
begin
...//销毁窗口
end;
end;
问题点数：50、回复次数：6Top
1 楼zsy_good（只要坚定不移的走下去，那一定会成功）回复于 2002-10-07 12:12:04 得分 4
form1.Destroy;Top
2 楼Bes96261（秋水孤鶩）回复于 2002-10-07 12:12:50 得分 30
通常你在OnCreate或Onshow里关闭窗体
会出保护性错误，这里用发消息的方法
begin
messagedlg('将要关闭', mtInformation, [mbOK], 0);
PostMessage(self.handle, WM_CLOSE, 0, 0);
Screen.Cursor := crDefault;
end
Top
3 楼hwkknd（白开水）回复于 2002-10-07 12:28:18 得分 4
感觉这迟早是个BUG
何不换一种方式，为什么不先判断一下是否该创建再继续呢…………Top
4 楼snjun（XX）回复于 2002-10-07 12:43:35 得分 4
非常同意hwkknd(白开水)的见解Top
5 楼snjun（XX）回复于 2002-10-07 12:45:02 得分 4
若是你想让窗口出现之后再消失有个笨办法，可以在FORM中加个记时器
设个时间，在记时器事件中关闭窗口，比较保险Top
6 楼leon2k（LEON）回复于 2002-10-07 12:50:28 得分 4
同意白开水。
逻辑上是应该先判断，然后再创建。而且在创建中销毁，必然会增加系统开销。Top
