procedure TForm1.FormCanResize(Sender: TObject; var NewWidth, NewHeight: Integer; var Resize: Boolean); begin Button1.Height:=Self.Height div 10; Button1.Width:=Self.Width div 10; end;
up 补充:Button1.Height:=Self.Height div i;//i为扩大的百分比,x:=n*100,i:=m/n
NewHeight: Integer; var Resize: Boolean);
begin
Button1.Height:=Self.Height div 10;
Button1.Width:=Self.Width div 10;
end;
补充:Button1.Height:=Self.Height div i;//i为扩大的百分比,x:=n*100,i:=m/n
把你要变大的控件Align里设为alclient就行了
有些组件可以设Align=alClient
有些就要编程实现!
可以吧akleft、aktop、akright、akbottom都设为true。
的观点