Formの最小サイズを指定するには？？

解決

boon 2005-08-07 16:47:04 No: 16928 IP: 192.*.*.*

Formをリサイズの最小サイズを
Form1.Width := 320;
Form1.Height := 240;
に指定し、それ以上小さくならない様にしたいんですが
うまくいきません！！

procedure TForm1.FormResize(Sender: TObject);
begin
  if Form1.Width <= 320 then
    Form1.Width := 320;
  if Form1.Height <= 240 then
    Form1.Height := 240;
end;

としましたが、ウィンドウがLunaを保てずクラシックスタイルになってしまいます。
環境はWinXP+Delphi6Personalです。よろしくお願いします。

編集削除

これが正解！ 2005-08-07 16:58:06 No: 16929 IP: 192.*.*.*

Constraints

編集削除

boon 2005-08-07 17:02:05 No: 16930 IP: 192.*.*.*

出来ました〜ｗ
お早い回答ありがとうございました！！
また教えて下さいねっ

編集削除