private
procedure WMSysCommand(var Msg:TMessage);message WM_SYSCOMMAND;
procedure TForm1.WMSysCommand(var Msg: TMessage);
begin
case Msg.WParam of
SC_MINIMIZE : ShowMessage( '最小化 ');
SC_MAXIMIZE : ShowMessage( '最大化 ');
end;
inherited;
end;
Delphi最大化最小化、窗体变化事件
最新推荐文章于 2022-07-30 17:16:19 发布