您现在的位置:首页 >> 界面报表 >> 界面报表 >> 内容

Delphi中捕捉窗体的最小化、最大化、还原消息

时间:2011/9/3 15:24:40 点击:

  核心提示:procedure TForm1.WMSysCommand; begin if (Msg.CmdType = SC_MINIMIZE) then //最小化消息 begin//处理代码 endelse...
procedure TForm1.WMSysCommand;  
begin    
  if (Msg.CmdType = SC_MINIMIZE) then //最小化消息
  begin 
    //处理代码
  end
  else
  if (Msg.CmdType = SC_MAXIMIZE) then //最大化消息 
  begin 
    //处理代码
  end  
  else
  if (Msg.CmdType = SC_RESTORE) then //还原消息
  begin 
    //处理代码 
  end;
  DefaultHandler(Msg);//默认处理
end;  

作者:网络 来源:转载
共有评论 0相关评论
发表我的评论
  • 大名:
  • 内容:
  • 盒子文章(www.2ccc.com) © 2024 版权所有 All Rights Reserved.
  • 沪ICP备05001939号