盒子论坛 v2.1

我做软件习惯上窗体是可以由客户自由改变大小的。但是如果把窗体的宽度或高度改的太小，以致于有些控件都看不见了。所有我想要限制窗体的最小宽度和高度。

我想了很久，想不错好的方法。
下面是我用的方法，我想应该有更好的方法。
procedure Tform1.FormResize(Sender: TObject);
begin
if self.Width<550 then
self.Width:=700;
end;
----------------------------------------------
青云论坛

作者：

easykey (悠游)	★☆☆☆☆	-
	盒子活跃会员

2004/3/26 22:42:21

1楼：

青云，dfw看回贴
----------------------------------------------

男儿贵展平生志，为国输忠合天地。甲穿虽则失黄金，剑缺犹能生紫气。塞草萋萋兵士苦，胡虏如今勿胡虏。封侯十万始无心，玉关生入君看取。

敬请光临学海Delphi站
http://delphi.studysea.net
学海无涯，让我们共同成长！

作者：

restboy (枫☆白水煮大虾)	★☆☆☆☆	-
	盒子活跃会员

2004/3/26 22:46:19

2楼：

看看form的constaints属性
----------------------------------------------
夫君子之行,静以修身,俭以养德.非澹泊无以明志,
非宁静无以致远.夫学须静也,才须学也,非学无以广才,
非志无以成学,淫漫则不能励精,险躁则不能治性,年与时驰,
意与日去,遂成枯落,多不接世,悲守穷庐,将复何及!

作者：

ddzhouqian (007)	★☆☆☆☆	-
	盒子活跃会员

2004/3/27 8:46:18

3楼：

form.borderstyle:=bssingle;

----------------------------------------------
-

作者：

leiyvn (雷子)	★☆☆☆☆	-
	普通会员

2004/3/27 8:46:26

3楼：

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

type
  TForm1 = class(TForm)
  private
    { Private declarations }
  protected
    procedure WMGetMinMaxInfo(var Message: TWMGetMinMaxInfo);
         message WM_GETMINMAXINFO;

  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}
procedure TForm1.WMGetMinMaxInfo(var Message: TWMGetMinMaxInfo);
begin
  with Message.MinMaxInfo^ do
  begin
    ptMinTrackSize := Point(100, 100);
   //限定窗口最小尺寸为100*100
    ptMaxTrackSize := Point(200, 200);
   //限定窗口最大尺寸为200*200
  end;
end;

end.

----------------------------------------------
继续开发我的delphi
仍然有Java  各位加油！

作者：

waterstone (waterstone)	★☆☆☆☆	-
	盒子活跃会员

2004/3/27 11:34:34

4楼：

按你说的，3楼那句就足够了！

----------------------------------------------
我来自农村广阔的田野我的每一个动作都很夸张http://waterstone.51r.com

信息

登陆以后才能回复