Formを最大化しているときwsNormalのボタンが押されたのを知るには

解決

武田 2008-09-15 18:18:29 No: 31937 IP: 192.*.*.*

XP＋D6パーソナルです。
Formを最大化して起動したとき、Formの右上隅にある３個のボタンの
wsNormalにするボタンを押されたのを知るにはどうしたらいいのでしょうか。

procedure TForm1.Form1NewProc(var message: TMessage);
・・・
if message.Msg =WM_？？？
など試みたのですが判りませんでした。
wsMAXimizedで起動するため、wsNormalボタンですこし小さくなるだけです。
目的はwsNormalのボタンが押されたら任意のFormサイズにしたいのです。
よろしくお願いします。

編集削除

KHE00221 2008-09-15 18:33:21 No: 31938 IP: 192.*.*.*

これでいける

procedure TForm1.FormResize(Sender: TObject);
begin
    if WindowState <> wsNormal then
    begin

    end
end;

編集削除

武田 2008-09-15 22:58:02 No: 31939 IP: 192.*.*.*

KHE00221 さんありがとうございました。
うまくいきました。
また、ご指導ください。

編集削除