处理WM_SYSCOMMAND
消息以检测最小化:
type
TMyForm = class(TForm)
....
protected
procedure WMSysCommand(var Message: TWMSysCommand); message WM_SYSCOMMAND;
....
end;
....
procedure TMyForm.WMSysCommand(var Message: TWMSysCommand);
begin
if Message.CmdType and $FFF0 = SC_MINIMIZE then
Hide
else
inherited;
end;
此时,您还可以通过选择的任何机制通知主表单。
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句