「元のサイズに戻す」を押した時の信号を取得するには？

解決

ダダン  2008-07-29 17:10:59  No: 31399  IP: 192.*.*.*

環境 Delphi2007 - WindowsXP

いつもお世話になっております。

フォームを最小化して隠した状態からタスクバー上のボタンを右クリックで
リストを開き「元のサイズに戻す」を選んだ時、（もしくはボタンを左クリック時）に作業を行いたいのですが取得方法が見つからないため質問させて
頂きました。

フォームイベントのOnShowやOnActivateのタイミングかと思っていたのですが
通過しないようなので

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

で試してみたのですが違うようでした。。

どなたかお分かりになる方いらっしゃいましたらお願い致します。

編集 削除
igy  2008-07-29 17:25:53  No: 31400  IP: 192.*.*.*

試したわけではないのですが、
TApplication の OnRestore イベント は、どうですか？

編集 削除
ダダン  2008-07-29 18:21:41  No: 31401  IP: 192.*.*.*

使用方法の勉強に少し時間かかってしまいましたが、
とてもよい勉強をさせて頂けました＾＾

普段使用しないような部分でも、いつまでも野放しにはできないものですね、
これを機にもう少しづつでも勉強していくようにがんばります。

igy様ありがとうございました。
解決しました。

編集 削除
あああ  2008-07-29 18:34:43  No: 31402  IP: 192.*.*.*

すでに解決されてるようですが、これでもOKっぽいです。

procedure WMSHOWWINDOW (var msg: TWMShowWindow); message WM_SHOWWINDOW;

procedure TForm1.WMSHOWWINDOW(var msg: TWMShowWindow);
begin
  if msg.Status = SW_PARENTOPENING then
    ShowMessage('');
  inherited;
end;

編集 削除