学习 Message(20): WM_SYSCOMMAND 消息[四] : 使最大最小化按钮失效

unit Unit1;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs;



type

  TForm1 = class(TForm)

  protected

    procedure WMSysCommand(var Message: TWMSysCommand); message WM_SYSCOMMAND;

  end;



var

  Form1: TForm1;



implementation



{$R *.dfm}



procedure TForm1.WMSysCommand(var Message: TWMSysCommand);

begin

  case Message.CmdType of

    SC_MAXIMIZE: Exit;

    SC_MINIMIZE: Exit;

  end;

  inherited;

end;



end.