如何响应Form的最大化及最小化事件,及如何在程序中控制其最大/小化动作?(20分)

  • 主题发起人 主题发起人 hw13
  • 开始时间 开始时间
procedure TForm1.Button1Click(Sender: TObject);
begin
Application.Minimize;
end;
 
好象是 WM_commad 的指令,具体我不记得了。
Form 直接设置其Windowstate 属性,
其它用Wjiachun 的就行了。
 
Sorry, 是WM_COMMAND 消息, No 命令。
 
sendmessage(handle,WM_SYSCOMMAND,SC_MAXIMIZE,top* 65536+left);
Sendmessage(Handle,WM_SYSCOMMAND,SC_MINIMIZE,0)
或直接设置WindowState
 
Application.OnMinimize:=你的处理过程
最大化类同
 
窗口的最小化和恢复可响应如下事件:
TApplication.ONMinimize
TApplication.OnRestore

窗口的最大化需响应
TForm.OnResize
测试其TForm.WindowState属性。

通过写代码控制窗口的最大化也是通过把TForm.WindowState设置为wsMaximizied
最小化通过调用TApplication.Minimize方法实现。
 
多人接受答案了。
 

Similar threads

S
回复
0
查看
896
SUNSTONE的Delphi笔记
S
S
回复
0
查看
873
SUNSTONE的Delphi笔记
S
D
回复
0
查看
909
DelphiTeacher的专栏
D
后退
顶部