centrar pantallas

[[BlueSteel]]

Hola

mira si pones el sgte codigo en algun boton, te dará la resolución inicial de la pantalla...

Código Delphi [-]
Var ModoOriginal: TDevMode;
begin
     EnumDisplaySettings('\\.\Display1', Cardinal(-1), ModoOriginal);
     ShowMessage(IntToStr(ModoOriginal.dmPelsWidth));

es decir,
si es 800x600, te entregará 800
si es 1024x768, te entregará 1024, y así según tu configuración...

y podrias realizar una consulta como sigue.. si pones esto en un boton...

Código Delphi [-]
Var ModoOriginal: TDevMode;
begin
     EnumDisplaySettings('\\.\Display1', Cardinal(-1), ModoOriginal);
     If ModoOriginal.dmPelsWidth =1024 then PonResolucion(800,600);
espero que esto te sirva

Saludos