Foros Club Delphi - MDI no se maximiza correctamente

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)

- - MDI no se maximiza correctamente (https://www.clubdelphi.com/foros/showthread.php?t=1704)

MDI no se maximiza correctamente

Hola Delphimaniacos ( me incluyo :))

He visto ya como algunas aplicaciones MDI no se maximizan correctamente, y ahora me pasa a mi (que casualidad !!)

Lo que ocurre es que la barra de título no se pega al borde superior de la pantalla, sino que queda un espacio, viendose el escritorio arriba. Por otra parte, la parte inferior queda oculta debajo de la barra de tareas de windows, así que no se vé la barra de estado de la aplicación.

Ya no pido una solución...... sólo si ha alguien le ha pasado alguna vez. :confused: me tiene amargaiiiiito

hola
efectivamente creo que ha todos nos ha pasado algo parecido en alguna ocasion.
cuando me pasa esto lo que hago es acudir al truco 495 de trucomania (que tu aplicacion ocupe toda la pantalla excluyendo la barra de tareas) y listo
aunque lo tengas solucionado o lo hayas dejado por imposible, apuntatelo para la proxima
un saludo

ya he visto el truco y me pongo manos a la obra.

Muchas Gracias.

adaptacion a Delphi 6

el TrucoMania "495 Que tu aplicacion ocupe todo el area de pantalla excluyendo la barra de tareas" funciona, pero no actualiza el estado de la ventana, es decir, WindowState NO es wsMaximized, por lo que al darle al boton de maximizar y restaurar, no se comporta como cabe esperar (siempre mantendrá todo el area de pantalla ocupado). He retocado el truco para delphi 6.

Coloquemos pues un ApplicationEvents y el código asociado es:

Código:

procedure TFrmMdi.ApplicationEvents1SettingChange(Sender: TObject;

  Flag: Integer; const Section: String; var Result: Integer);

  var R:TRect;

  begin

  // cuando esta maximizada y se cambia la barra  de tareas de sitio:

  if (flag = SPI_SETWORKAREA) and (frmmdi.WindowState = wsmaximized) then

  begin

    SystemParametersInfo(SPI_GETWORKAREA, 0, @R, 0);

    SetBounds(R.Left, R.Top, R.Right-R.Left, R.Bottom-R.Top);

    Result:=0;

  end;





end;



procedure TFrmMdi.ApplicationEvents1Message(var Msg: tagMSG;

  var Handled: Boolean);

  var R:TRect;

begin



if msg.wParam = SIZE_MAXIMIZED then

  begin

    SystemParametersInfo(SPI_GETWORKAREA, 0, @R, 0);

  //    ********   extracto de la ayuda de delphi *********

 // LOWORD(lParam);  // New width of client area

//  HIWORD(lParam); // New height of client area

   msg.lParam := loword(R.Right-R.Left);

   msg.lParam := hiword(R.Bottom-R.Top);

   handled:=false;



  end;

Nota: Este "Super"-truco :D no se podría haber llevado a cabo sin la estimable ayuda de madriles :)

Yo no tenía este problema. Mi aplicación se maximizaba correctamente.
Acabo de hacer una recompilación de la aplicación, y ahora solo en ciertas máquinas, con winXP, me sucede el mismo problema. No se maximiza correctamente.

antes no había problema, ahora sí.... no le moví a nada, solo recompile. En winVista se ve correcto, en win7 se ve correcto, algunas máquinas con winXP se ve correcto. Algunas con XP, no maximiza correctamente.

¿porque antes no y ahora sí?
¿que paso?
¿cómo lo arreglo?

-- edito --
si se compila con monitores configurados a 4:3, funciona correcto.
si se compila con monitores 16:9, se presenta el problema en monitores 4:3
¿solución?, compilar con una pantalla a 4:3