在先等待,界面,变化而控件也跟着变化!!

Question

各位朋友大家好:
  1.  请问DELPHI6中,怎么去设置窗体能够使窗体中的控件按照窗体大小的变换而成比例变化.
   2. 一个图片控件加入的图片可以按照窗体的大小变化而扩大或者缩小吗?                                                谢谢

Answer 1

//写Oncreate, and OnResize 事件就可以乐。
var
  Form1: TForm1;
  Fold:integer;
implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin
Fold:= form1.Width;
end;procedure TForm1.FormResize(Sender: TObject);
begin
ScaleBy(Form1.Width,Fold);
 Fold:= Form1.Width;
end;

Answer 2

2。图片控件Align=alClient,Stretch=true
设置上面2个属性应该可以的。

Answer 3

写Oncreate, and OnResize 事件
随着form的width变化改写控件大小