一个小问题!(50分)

  • 主题发起人 主题发起人 kens
  • 开始时间 开始时间
K

kens

Unregistered / Unconfirmed
GUEST, unregistred user!
我现在想自己处理窗口的最大化与最小化消息,我该接收哪一条消息?
我试过接收 WM_SIZE 消息,但一运行就死机,连windows都死掉,我的写法是这样的:
procedure WMSIZE(var msg:Tmessage);message WM_SIZE;
begin
; inheirted;
; if msg.wparam=SIZE_MAXIMIZED then ...
; msg.result := 0;
end;
 
应该是处理wm_syscommand消息
 
同意,最大化最小化消息,用 WM_SYSCOMMAND
你的当然有问题,如果不是SIZE_MAXIMIZED 怎么办?
最起码应该调用缺省的 DefWindowProc,
 
procedure TForm1.WMSysCommand(var Msg: TMessage);
begin
; case Msg.WParam of
; ; SC_MINIMIZE: Caption := 'Min';
; ; SC_MAXIMIZE: Caption := 'Max';
; ; SC_RESTORE: ;Caption := 'Res';
; ; else inherited;
; end;
end;
 
谢谢Croco,送上50分,请查收!
 
同样感谢[8D]
 
后退
顶部