Estilo de WIN XP vs Delphi

[[Lepe]]

Los síntomas son clásicos de una ventana MDI cuando la vas a maximizar, que no toma el tamaño correcto del escritorio. Ya ha salido en los foros, y la respuesta es esta:

Código Delphi [-]
procedure TFrmMdi.ApplicationEvents1SettingChange(Sender: TObject;
  Flag: Integer; const Section: String; var Result: Integer);
var
  R: TRect;
begin
  // para arreglar el maximimizar de la ventana
  // 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;

Como puedes apreciar, necesitas un Applications Events, y usar el evento Settings Changing.

Un saludo