如何捕获窗体的最小化,最大化事件(50分)

  • 主题发起人 主题发起人 pxlei
  • 开始时间 开始时间
P

pxlei

Unregistered / Unconfirmed
GUEST, unregistred user!
如题。
应该有的,自己没时间找。
用分求题吧。
 
重载form的WM_GeTMINMAXINFO消息.
 
<a href=http://www.gislab.ecnu.edu.cn/delphibbs/dispq.asp?LID=152158>http://www.gislab.ecnu.edu.cn/delphibbs/dispq.asp?LID=152158</a>
 
截获WM_sysCommand消息
 
http://www.gislab.ecnu.edu.cn/delphibbs/dispq.asp?LID=147862
 
WM_SYSCOMMAND
uCmdType = wParam;
xPos = LOWORD(lParam);
yPos = HIWORD(lParam);

uCmdType
SC_MAXIMIZE (or SC_ZOOM) Maximizes the window.
SC_MINIMIZE (or SC_ICON) Minimizes the window.
 
依我估计可以在OnResize中下点工夫,检查Form的状态是否最大化或最小化,
不就知道了吗?
 
; 对OnResize下工夫肯定没用,要捕获窗体的最小化,最大化事件方法很多。我
私下认为最简单的方法是:(以最小化为例)
在OnCreate中声明:
Application.OnMinimize:=MyMinimize;
添加MyMinimize方法如下:
procedure TForm1.MyMinimize(Sender:TObject);
begin
// 在此添加你最小化时要处理的代码
application.Minimize;
end;
 
多人接受答案了。
 

Similar threads

回复
0
查看
988
不得闲
D
回复
0
查看
925
DelphiTeacher的专栏
D
D
回复
0
查看
880
DelphiTeacher的专栏
D
后退
顶部