最大化ボタンを押したときのイベントは？

解決

太郎衛門 2003-12-19 08:38:35 No: 6333 IP: [192.*.*.*]

お世話になってます、太郎衛門です。
さっそくですが、質問です。
Form1の最大化ボタンをクリックしたときにイベントを持たせたいのですが、
どう設定すればいいのか、調べてもわかりませんでした。
基本的すぎて載っていないのかもしれませんが、どなたか教えて下さい。

編集削除

Halbow 2003-12-19 09:22:42 No: 6334 IP: [192.*.*.*]

Halbow です。

> Form1の最大化ボタンをクリックしたときにイベントを持たせたいのですが

自前でメッセージを捕まえます。

    { Private 宣言 }
  public
    procedure WMSysCommand(var Msg:TWMSysCommand);message WM_SYSCOMMAND;
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.WMSysCommand(var Msg: TWMSysCommand);
begin
  inherited;
  case (Msg.CmdType and $FFFFFFF0) of
    SC_MAXIMIZE : Color := clRed;     // 最大化された
    SC_RESTORE  :Color := clBtnFace;  // 元のサイズに戻った
  end;
end;

編集削除

太郎衛門 2003-12-19 20:04:44 No: 6335 IP: [192.*.*.*]

ありがとうございました。
無事、解決しました。

編集削除