Aplicación maximizada descolocada en la pantalla

[ecfisa]

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;       // 768, ...
  Ancho= 1024;  // 1366, ...
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.