在1024*768下做的程序如何才能让它在800*600下也能正常显示？

Question

如题。谢谢。

Answer 1

加分辨率自适应代码：
const
  Orignwidth = 1024;
  Orignheight = 768;
...............
procedure TfrmClient.FormCreate(Sender:TObject);
var
  i:integer;
begin
  scaled:=true;
  if (screen.width <> orignwidth) then
  begin
    height:=longint(height) * longint
      (screen.height) div orignheight;
    width:=longint(width) * longint
      (screen.width) div orignwidth;
    scaleby(screen.width,orignwidth);
  end;  for i:=componentCount - 1 downto 0 do
    with components[i] do
    begin
      if GetPropInfo(ClassInfo, 'font') <> nil then
        font.size:=(screen.width div Orignwidth) * font.size;
    end;
..............