Delphi小技巧

1，如何解决控件大小随窗体改变

var FormOldWid:integer;
procedure TForm1.FormCreate(Sender: TObject);
begin
          FormOldWid:=Form1.Width;
end;
procedure TForm1.FormResize(Sender: TObject);
begin
          ScaleBy(Form1.Width,FormOldWid);
           FormOldWid:=Form1.Width;
end;

//  ScaleBy 图像中的所有层进行同量的缩放

 

2,

可以用Ctrl+箭头来微移控件,用Shift+箭头微调控件的大小。

 

3,

限制窗体大小：

procedure TForm1.FormCreate(Sender: TObject);

begin

form1.Height:=200;

form1.Width:=300;

form1.Constraints.MaxHeight:=400;

　　 form1.Constraints.MaxWidth:=600;

　　 form1.Constraints.MinHeight:=100;

　　 form1.Constraints.MinWidth:=150;

end;