Ajuste automatico de la pantalla

[aeff]

bueno, no se si te entendi bien colega,

pero estas seguro que la resolucion de la pantalla no tiene que ver en esto?

es porsible que un monitor de 17" tenga como predeterminado una resolucion mayor (por ejemplo de 1027x768px) que uno de 15" que puede tener una resolucion menor (por ejemplo de 800x600px),

nunca te has fijado en ese detalle??

saludos!

aeff!

[MAXIUM]

aeff tiene razón, ese ha de ser tu problema.

y la solución:

// Ancho Y alto corresponden a las dimensiones de tu Form en tiempo de diseño.
Const
        Ancho   = 800;
        Alto      = 600;

procedure TForm1.FormCreate(Sender: TObject);
begin
// Redimensiona la aplicación en base a la resolución.
     Height:= Height * Screen.Height div Alto;
     Width:= Width * Screen.Width div Ancho;
  // ScaleBy(Screen.Width, Ancho); //en base al ancho
     ScaleBy(Screen.Height, Alto); // en base al alto.
end;