您的位置:首页 > 编程语言 > Delphi

Delphi最大化最小化、窗体变化事件

2010-08-09 10:18 417 查看
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;
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: