在600X800下做的软件在1024X768下显示就很小了，怎么解决？（急急急）

Question

在600X800下做的软件在1024X768下显示就留下很多空白部分，
有没有什么办法可以使控件按比例取大小，而不按象素来取？（急急急，线上等待！）

Answer 1

两种方法：1、更改分辨率
2、使用自动化的控件（如vidiosoft）

Answer 2

以下是代码看着填吧试试行不行
var orignheight=600;
    orignwidth=800;
procedure Tfrm_SngCb.FormCreate(Sender: TObject);
begin
scaled:=true;
 if(screen.Width<>orignwidth)then
  begin
   height:=screen.Height*longint(height)div orignheight;
   width:=screen.Width*longint(width)div orignwidth;
   scaleby(screen.Width,orignwidth);
   end;
end;

Answer 3

使用Align属性，如alBottom（下对齐），alClient(填充剩余区域)等

Answer 4

假设你在800*600的分辨率下设计的form,第一步：
inplementation
const
  ScreenWidth: LongInt = 800; {I designed my form in 800x600 mode.}
  ScreenHeight: LongInt = 600;{$R *.DFM}procedure TForm1.FormCreate(Sender: TObject);
begin
  scaled := true;
  if (screen.width <> ScreenWidth) then
  begin
    height := longint(height) * longint(screen.height) div ScreenHeight;
    width := longint(width) * longint(screen.width) div ScreenWidth;
    scaleBy(screen.width, ScreenWidth);
  end;
end;下一步，要让每个子控制的字体改变到合适的大小：
type
  TFooClass = class(TControl); { needed to get at protected }
                               { font property }var
  i: integer;
begin
  for i := ControlCount - 1 downto 0 do
    TFooClass(Controls[i]).Font.Size :=
        (NewFormWidth div OldFormWidth) *
        TFooClass(Controls[i]).Font.Size;
end;