Form en monitor de 15/17

[Walter]

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