reconocer resolucion de pantalla

[MAXIUM]

Así es, dice se RECOMIENDA no OBLIGA. Muchos usuarios tienen problemas a la vista, más que nada por los textos, por ende usan resoluciones bajas como lo es 800x600.

Ahora, por lo menos en mi pais, la tendencia es a usar notebook y monitores LCD, los cuales la mayoría se comercializa en formato Widescreen. Si restringo mi software tambien lo hago con los clientes y ventas.

Esto lo coloco en el evento onCreate del Formulario principal con las dimensiones 800x600 en tiempo de diseño.

Código Delphi [-]
  // Redimensiona la aplicación en base a la resolución de la pantalla.
     If Screen.Width = 1024 then ScaleBy(740, 572);
     If Screen.Width =  800 then ScaleBy(578, 572);