delphi – 当显示另一个窗口时,Control的OnExit会在新控件上执行
我在
Experts-Exchange找到了这个问题.
我正在尝试做类似的事情: 在onexit事件中,我显示一个警告框,然后继续 解决方法
再次PostMessage救援!将对话延迟一点,以便Windows可以完成焦点更改.发布消息而不是直接显示对话框:
const WM_SHOWMYDIALOG = WM_APP + 321; TForm1 = class(TForm) Edit1: TEdit; Edit2: TEdit; procedure Edit1Exit(Sender: TObject); private procedure WMSHOWMYDIALOG(var Message: TMessage); message WM_SHOWMYDIALOG; end; procedure TForm1.Edit1Exit(Sender: TObject); begin PostMessage(Self.Handle,WM_SHOWMYDIALOG,0); end; procedure TForm1.WMSHOWMYDIALOG(var Message: TMessage); begin ShowMessage('Nice one'); end; 一切都很好:) (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |