全部博文(788)
分类:
2009-04-08 09:22:44
设置Align和Anchors属性
在窗体的OnResize事件里重新设置一个目标控件的Left、Top、Width与Height值即可
如果想要控件的位置变而大小不变,可以这样:
procedure TForm1.FormResize(Sender: TObject);
begin
Button1.Left:=round(left*clientwidth/fwidth);
Button1.Top:=round(top*clientheight/fheight);
end;
其中left,top 是最初button1的left与top值,fwidth,fheight是最初form1的width与height值.