Formを最小化する前にメッセージを出すには？

解決

ミーコ 2004-12-11 05:49:14 No: 12256

Formを最小化させたときのイベントを知りたいのです。
ApplicationのonMinimizeしか見つかりませんでした。
複数Formのそれぞれが最小化される直前にメッセージが出せるように
したいのです。
例えば
最小化を押すと「Form3を最小化してもよろしいですか？」
最大化を押すと「Form3を最大化してもよろしいですか？」
みたいに。
うまい方法があればご教授お願いいたします。

りおりお 2004-12-11 06:25:50 No: 12257

こんな感じ

type
  TForm2 = class(TForm)
  private
    { Private 宣言 }
  public
    procedure WMSysCommand(var Msg:TWMSysCommand);message WM_SYSCOMMAND;
  end;

var
Form2: TForm2;

implementation

{$R *.DFM}

procedure TForm2.WMSysCommand(var Msg:TWMSysCommand);
begin
  case  Msg.CmdType and $FFF0 of
    SC_MINIMIZE: if MessageDlg('Form2 を最小化しますか？',
                 mtConfirmation, [mbYes, mbNo], 0) = mrYes then inherited;
    SC_MAXIMIZE: if MessageDlg('Form2 を最大化しますか？',
                 mtConfirmation, [mbYes, mbNo], 0) = mrYes then inherited;
  else
    inherited;
  end;
end;

ミーコ 2004-12-12 06:37:33 No: 12258

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