centrar pantallas

[[BlueSteel]]

Tambien se me presento ese problema...


Bueno, aparte de dejar todos los formularios con la opción de position := poScreenCenter


Algunos usuarios usan una resolución de 800x600 y mis sistemas los realizo a 1024x768, asi que tube que agregar esta funcion cuando ingreso al sistema

Código Delphi [-]
// Funcion que permite cambiar la resolución de la Pantalla
Function SetScreenResolution(Ancho, Altura: integer): Longint;
var
 DeviceMode: TDeviceMode;
begin
 with DeviceMode do begin
   dmSize := SizeOf(TDeviceMode);
   dmPelsWidth := Ancho;
   dmPelsHeight := Altura;
   dmFields := DM_PELSWIDTH or DM_PELSHEIGHT;
 end;
 Result := ChangeDisplaySettings(DeviceMode, CDS_UPDATEREGISTRY);
end;

y para llamarla utilizas esto..

Código Delphi [-]
 
 SetScreenResolution(1024, 768);

entonces la idea es preguntar si la resolución es de 800x600, si es verdadero, cambio a 1024x768... y dejo una variable para que me cambie a 800x600 cuando salga...

Salu2