窗口最大化,最小化有什么事件可以获得?急!

cdkcool 2001-02-01 10:24:00
...全文
98 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
jjdelphi 2001-02-01
  • 打赏
  • 举报
回复
回复人:zengyufeng(2000-10-26 09:38:00 ) 得5分


TForm1 = class(TForm)
private
procedure WMSysCommand(var Message:TWMSysCommand); message WM_SYSCOMMAND;
end;



procedure TForm1.WMSysCommand(var Message:TWMSysCommand); message WM_SYSCOMMAND;
begin
case Message.CmdType of
SC_MINIMIZE: //最小化
SC_MAXIMIZE: //最大化
SC_RESTORE: //恢复
end;
inherited;
end;
Nicrosoft 2001-02-01
  • 打赏
  • 举报
回复
重载WM_SIZE消息处理函数就可以了。
yousoft2013 2001-02-01
  • 打赏
  • 举报
回复
//用这个就可以了。
private
procedure WMSysCommand(var Message:TWMSysCommand); message WM_SYSCOMMAND;
end;
procedure TForm1.WMSysCommand(var Message:TWMSysCommand); message WM_SYSCOMMAND;
begin
case Message.CmdType of
SC_MINIMIZE: //最小化
SC_MAXIMIZE: //最大化
SC_RESTORE: //恢复
end;
inherited;
end;

5,931

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧