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

解決

武田 2008-09-16 03:18:29 No: 31937

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

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

KHE00221 2008-09-16 03:33:21 No: 31938

これでいける

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

end
end;

武田 2008-09-16 07:58:02 No: 31939

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