Resolucion del monitor, Puedo saber cual es?

[Jorge Taveras]

Comence una aplicación en resolución 1024 x 768. El programa lucia de lo más elegante, hasta que el ingenio creador del usuario dispuso que se veia mejor a 800 x 600. Luego, el titulo, los bmp y otras cosas que hacen lucir bonito el programa ya no estaban centralizados. La verdad es que no luce bien en esa baja resolución. Pero, no tengo remedio. Pudiera saber cual es la resolucion del monitor y en base a eso realizar ajustes visuales ?

[Loviedo]

Encontrado en algún sitio

X := GetSysTemMetrics(SM_CXSCREEN); {Ancho}
Y := GetSysTemMetrics(SM_CYSCREEN); {Alto}

Para cambiar resolución:

function DynamicResolution(X, Y: word): BOOL;
var
lpDevMode: TDeviceMode;
begin
Result := EnumDisplaySettings(nil, 0, lpDevMode);
if Result then
begin
lpDevMode.dmFields := DM_PELSWIDTH Or DM_PELSHEIGHT;
lpDevMode.dmPelsWidth := X;
lpDevMode.dmPelsHeight := Y;
Result := ChangeDisplaySettings(lpDevMode, 0)= DISP_CHANGE_SUCCESSFUL;
end;
end;

[slat]

tambien puedes obtener la resolucion con las propiedades width y height del objeto Tscreen


function Resolucion: string;
var
x, y: integer;
begin
x:=screen.Width;
y:=screen.Height;
result:=inttostr(x)+' x '+inttostr(y);
end;

[Jorge Taveras]

Estimados amigos, las dos ayudas me fueron muy utiles. hice un formulario donde se informa la resolucion del monitor y un moton que la mueve de 800 x 600 a 1024 x768, lo que hace que el usuario pueda jugar con la resulucion desde el mismo programa. Me falta el origen de mi inquietud que es ajustar el programa a la resolucion, pero voy por buen camino. Gracias mil.