如何关闭正在显示中的表单? ( 积分: 10 )

  • 主题发起人 主题发起人 kensoft
  • 开始时间 开始时间
K

kensoft

Unregistered / Unconfirmed
GUEST, unregistred user!
myform.show 让它显示出来之后突然我觉得条件不足想关闭它。在onshow,oncreate中都没法用myform.close,它照样会show出来,该如何自动退出该画面。
 
myform.show 让它显示出来之后突然我觉得条件不足想关闭它。在onshow,oncreate中都没法用myform.close,它照样会show出来,该如何自动退出该画面。
 
通常你在OnCreate或Onshow里关闭窗体
会出保护性错误,这里用发消息的方法
begin
messagedlg('将要关闭', mtInformation, [mbOK], 0);
PostMessage(self.handle, WM_CLOSE, 0, 0);
Screen.Cursor := crDefault;
end

代码出处:Delphi之未经证实的葵花宝典version 2.7
 
wrl_001:你是行的, 给你加分以资鼓励。
 
后退
顶部