Aplicación maximizada descolocada en la pantalla

[ContraVeneno]

Empezado por jjoliveras

...
Corregi en tiempo de diseño el tamaño a 1024x768
..

¿qué fue lo que corregiste?
¿el diseño de la forma?, ¿la resolución de la pantalla?
¿?


---- edito

ya vi... intente cambiar la resolución de mi pantalla a 1042x768 pero igual seguía sin funcionar...

el problema no es la resolución. Si no mas bien el monitor. Si el monitor es "widescreen", se presenta el problema en monitores normales. Tendría que ser 4:3 en lugar de 16:9.
Es decir, compilar a 4:3 para que funcione en todos los monitores...
Si se compila a 16:9, se presenta el problema en monitores que son 4:3

[ecfisa]

Hola.

Hace bastante, copié estas líneas para adaptar el form principal a distintas resoluciones.
( lamento no recordar de donde las saqué ).

Código Delphi [-]
procedure TForm.FormCreate(Sender: TObject);
const
  Alto= 768;       // 768, ...
  Ancho= 1024;  // 1366, ...
begin
  if Screen.PixelsPerInch = 96 then
  begin
   Height := Height * Screen.Height div Alto;
   Width := Width * Screen.width div Ancho;
   ScaleBy(Screen.Width,Ancho);
 end
 else if Screen.PixelsPerInch = 120 then
 begin
   Height := Height *Screen.Height div Alto;
   Height := Height+((Height*15) div 100);
   Width := Width * Screen.Width div Ancho;
   Width := Width+((Width*15) div 100);
   ScaleBy(Screen.Width,Ancho);
   Top := Top - 70;
   Left := Left - 70;
  end
  else
  begin
    Height := Height * Screen.Height div Alto;
    Width := Width * Screen.width div Ancho;
    ScaleBy(Screen.Width,Ancho);
  end;
end;

Espero puedan servirle a quien esté interesado en este hilo.

Saludos.

[RedVenom]

Ecfisa en donde aplico ese código que colocaste??

[ContraVeneno]

Supongo que en el evento "Create" de la forma.... digo, no supongo, ahí dice:

Código Delphi [-]
procedure TForm.FormCreate(Sender: TObject);