Hola, a ver si te sirve:
Usando la funcion ScaleBy dentro del evento oncreate de cada formulario, el primer parámetro de esta funcion divide y el segundo multiplica.
procedure TForm1.FormCreate(Sender: TObject);
var escala:integer;
begin
escala:= trunc((Screen.Width/800)*100);
{ en Screen width tengo el ancho del monitor donde estoy corriendo el programa y 800 es la resolución que yo tengo en mi monitor (800 x 600), si en tu monitor tenes 1024 x 768 tenes que usar 1024 en lugar de 800 o 640 si es de 640x 480}
ScaleBy(escala,100);
end;
Ademas:
Pon la propiedad del Form: Auto scroll = false. (para que tambien achique el form y no solo lo que contiene). Y Position = poScreenCenter
Proba en que resolución te conviene programar pues si bien este metodo funciona, a veces cuando cambias la resolucion las letras quedan muy chicas.
Saludos Walter
|