就是WnEunfn(斯人不语) 说的那个事件了。 with i:=0 to form1.control.count do begin controls[i].left:= ...; Controls[i].with:=...; controls[i].heitht:=...;//CONTROLS[I],的属性根据FORM1的比例来调整 end;
我机器上没有DELPHI,写出来一定不对,你自己调试吧。
请Aarcon_Chen老兄能再详细一点,我按你的方法试了,可是不行呀
有人写过一个控件好像叫TResize,放在上面即可在窗体缩放时其上的所有控件均依相同比例缩放.
设置Anchors属性akLeft:= akRight:= akTop:= akBottom:=
用RORM的Resize事件,可以控制组件随窗口的变化而变化。 例:用WEBBROWSER组件,让它随FORM的改变而改变。 procedure TForm1.FormResize(Sender: TObject); begin WebBrowser1.Width:=Form1.Width-100; WebBrowser1.Height:=Form1.Height-100; end;100为随意的一个数值,主要看离组件边缘到窗口边缘的距离而定。 然后再设置组件的LEFT和TOP属性,调整一下就行了!
with i:=0 to form1.control.count do
begin
controls[i].left:= ...;
Controls[i].with:=...;
controls[i].heitht:=...;//CONTROLS[I],的属性根据FORM1的比例来调整
end;
akRight:=
akTop:=
akBottom:=
例:用WEBBROWSER组件,让它随FORM的改变而改变。
procedure TForm1.FormResize(Sender: TObject);
begin
WebBrowser1.Width:=Form1.Width-100;
WebBrowser1.Height:=Form1.Height-100;
end;100为随意的一个数值,主要看离组件边缘到窗口边缘的距离而定。
然后再设置组件的LEFT和TOP属性,调整一下就行了!