Hola.
Hace bastante, copié estas líneas para adaptar el form principal a distintas resoluciones.
( lamento no recordar de donde las saqué ).
Código Delphi
[-]
procedure TForm.FormCreate(Sender: TObject);
const
Alto= 768; Ancho= 1024; begin
if Screen.PixelsPerInch = 96 then
begin
Height := Height * Screen.Height div Alto;
Width := Width * Screen.width div Ancho;
ScaleBy(Screen.Width,Ancho);
end
else if Screen.PixelsPerInch = 120 then
begin
Height := Height *Screen.Height div Alto;
Height := Height+((Height*15) div 100);
Width := Width * Screen.Width div Ancho;
Width := Width+((Width*15) div 100);
ScaleBy(Screen.Width,Ancho);
Top := Top - 70;
Left := Left - 70;
end
else
begin
Height := Height * Screen.Height div Alto;
Width := Width * Screen.width div Ancho;
ScaleBy(Screen.Width,Ancho);
end;
end;
Espero puedan servirle a quien esté interesado en este hilo.
Saludos.