用API如何禁止一个窗口最大化

Question

rt

Answer 1

你先把WindowState设置为wsMinimized
然后
Procedure WMQueryOpen(var msg:TWMQueryOpen);message WM_QUERYOPEN;Procedure TForm1.WMQueryOpen(var msg:TWMQueryOpen);
begin
  Msg.Result:=0;
end;

Answer 2

最大化按纽变灰：修改FORM属性,BORDERICONS中的BIMAXIMIZE设为FALSE在原来状态不能最大化：
   procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;procedure TForm1.WMSysCommand(var Msg: TWMSysCommand);
begin
 if (Msg.CmdType = SC_MAXIMIZE) Then
    msg.Result:=0
 Else
   DefaultHandler(Msg);
end;

Answer 3

如果是的话建议你用Shell钩子勾住消息就可以了。