请教一个弱问题：一个窗体最小/大化时发出什么消息？或者激发什么事件？(10分)

D

DelphiFish

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-05

• #1

有没有如WM_XXXXX的消息存在，或是Form.OnXXX的事件存在，望各位不吝赐教。谢谢

 

B

Brave

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-05

• #2

;WM_SYSCOMMAND ; ; ; = $0112;
当用户选择窗口菜单的一条命令或当用户选择最大化或最小化时那个窗口会收到此消息

 

B

Brave

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-05

• #3

;WM_MDIMAXIMIZE ; ; ;= $0225;
程序发送此消息给MDI客户窗口来最大化一个MDI子窗口；

 

D

DelphiFish

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-05

• #4

不可以啊？奇了怪了。例如：我想在点击一个窗口的最小化按钮时让这个form hide。
procedure TForm1.WMSYSCOMMAND(Msg:TWMSYSCOMMAND);
begin
; Form1.Hide;
end;
为什么不可以呢？
大侠多帮忙。

 

S

SuperJS

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-05

• #5

Application.OnMinimize=你的函数

 

B

Brave

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-05

• #6

可以

type
; TForm2 = class(TForm)
; private
; procedure wmsys(var msg:tmessage);message wm_syscommand;
; ; { Private declarations }
; public
; ; { Public declarations }
; end;

var
; Form2: TForm2;

implementation

{$R *.DFM}

procedure TForm2.wmsys(var msg: tmessage);
begin
; hide;
end;

 

S

SuperJS

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-05

• #7

Procedure OnMyMessage(var msg:Tmessage);message WM_SYSCOMMAND;
是不是该这样写啊！

 

D

DelphiFish

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-05

• #8

谢谢Brave，真是人如其名，就是了得，呵呵。分加高帽子送上，笑纳了

 

B

Brave

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-05

• #9

加上这些判断就全了
; ; ; case Msg.Msg of
; ; ; ; ; case WParam and $FFF0 of
; ; ; ; ; ; SC_MINIMIZE: xxx;
; ; ; ; ; ; SC_RESTORE: xxx ;
; ; ; ; ; else
; ; ; ; ; ; xxx; ;
; ; ; ; ; end;
;

 

B

Brave

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-05

• #10

谢谢
好舒服