Configura Sistema para qualquer quantidade de pixels

Question

Bem como eu fa�o para para configurar meu sistema para rodar tanto em monitores com 800x600 pixels, quanto 640x480 ou 1024x728 pixels.?...

Ltres · Answer

Vc pode mudar o Height e o Width do Form conforme a resolu��o. Ja para mudar o tamanho dos componentes use o ScaleBy, veja:

  Form1.ScaleBy(100, 150);

Isso ira fazer com q o form passe de 100� para 150�, mas s� os componentes dentro do mesmo.

Ltres · Answer

Agora se a ideia � mudar a resolu��o, fa�a algo do tipo

function LTMudaRes(Res: String = �800X600�; bits: byte = 32): boolean;
var
  DevMode : TDevMode;
  i, w, h: integer;
begin
  w:=strtoint(copy(res,1,pos(�X�,uppercase(res))-1));
  h:=strtoint(copy(res,pos(�X�,uppercase(res))+1,4));
  try
    i:=0;
    while EnumDisplaySettings(nil,i,Devmode) do
    begin
      if (devmode.dmPelsWidth=w) and (devmode.dmPelsHeight=h) and (devmode.dmBitsPerPel=bits) then
      begin
        ChangeDisplaySettings(DevMode,0);
        result:=true;
        Break;
      end;
      inc(i);
    end;
  except
  result:=false;
  end;
end;

F�rum Configura Sistema para qualquer quantidade de pixels #211618