maximiertes MDI child

[uligerhardt]

Zitat von WiWo:

Dies hier ist meine 1. Forumsnachricht; wie man Screenshots mitgibt, hab ich noch nicht rausgekriegt.

In der Toolbar im Editor ist ein Büroklammerbutton. Wenn du draufklickst, kriegst du ein Fenster, um Anhänge hinzuzufügen. Anschließend kannst du sie mit dem DropDown neben der Büroklammer einfügen.

[mm1256]

Das ist wahrscheinlich das altbekannte VCL-Problem, wenn nicht alle MDI-Childs vom selben Fenster abgeleitet sind. Leider habe ich momentan meine alten Quellcodes mit dem Fix nicht im Zugriff.

Delphi-Quellcode:

type
  TFormMain = class(TForm)
    ...
  private
    procedure ClientWndProc(var Message: TMessage);
    ...
    FClientInstance : TFarProc;
    FPrevClientProc : TFarProc;
  end;

procedure TFormMain.Create(Sender: TObject);
begin
  FClientInstance := MakeObjectInstance(ClientWndProc);
  FPrevClientProc := Pointer(GetWindowLong(ClientHandle,GWL_WNDPROC));
  SetWindowLong(ClientHandle, GWL_WNDPROC, LongInt(FClientInstance));
end;

procedure TFormMain.ClientWndProc(var Message: TMessage);
var
  ActiveChild: TForm;
  Size: Integer;
begin
  with Message do
  case Msg of
    WM_MDISETMENU:
      ActiveChild:= ActiveMDIChild;
      if Assigned(ActiveChild) then
      if (ActiveChild.WindowState = wsMaximized) then
      begin
        with ActiveChild do Size:= (ClientWidth) + (ClientHeight shl 16);
        SendMessage(ActiveChild.Handle, WM_SIZE, SIZE_RESTORED, Size);
        CallWindowProc(FPrevClientProc, ClientHandle, Msg, wParam, lParam);
        SendMessage(ActiveChild.Handle, WM_SIZE, SIZE_MAXIMIZED, Size);
      end else CallWindowProc(FPrevClientProc, ClientHandle, Msg, wParam, lParam);
    else Result := CallWindowProc(FPrevClientProc, ClientHandle, Msg, wParam, lParam);
  end;
end;

Wenn ich mich recht entsinne...also bitte unter Vorbehalt, so ähnlich hatte ich das damals gelöst. Wenn man nach "delphi WM_MDISETMENU mdi" googelt, findet man sicher noch irgendwo den kompletten Hotfix. Falls nicht, dann könnte ich ja nochmal nach den "uralten" Quellcodes suchen. Dauert aber etwas, weil wie jedes Jahr vor Weihnachten die Hütte brennt

BTW mit XE war das Problem dann verschwunden, also warum auf 2007 hoch ziehen und nicht auf XE?

[WiWo]

Hallo Uli,

danke erstmal für die Mühe; also kein generelles Problem bei D2007 und wohl auch kein hinzugekommenes Form- oder Menu-Property.
Leider steckt hinter dem Programm, um das es geht, ein komplexes Framework, das der frühere Entwickler selbst geschrieben hat. Um das Problem einzugrenzen, müsste ich eigentlich den Programmteil in der VCL ermitteln, der für das Neuzeichnen der Menüleiste zuständig ist. Eine ziemliche Schweinearbeit. Oder hättet Ihr noch eine andere Idee?

hier die beiden Screenshots, vor und nach der Maximierung des Clients:

http://www.delphipraxis.net/attachme...1&d=1450350030

http://www.delphipraxis.net/attachme...1&d=1450350053

Gruß,
WiWo

[mm1256]

Zitat von WiWo:

....also kein generelles Problem bei D2007....

So wie ich das sehe, falsch, das ist ein hausgemachtes Delphi-Problem

[WiWo]

Hallo Otto,

grad ist meine Antwort an Dich irgendwie ins Nirwana verschwunden; also nochmal Danke für Deinen Hinweis; ich werde dem dem nachgehen.

Was das Update auf XE angeht: das wird bei diesem Projekt wohl nicht in Frage kommen. Es ist riesig mit vom früheren Entwickler selbst geschriebenen Framework und Datenbank-Engine, alles basiert auf ANSI und mehrere Fremdsoftware-Komponenten sind eingebunden, zu denen es teilweise nur DCUs aber keine Quellen gibt. Das alles von D7 auf D2007 zu hieven war schon eine Herausforderung; der frühere Entwickler hat das nicht machen wollen. Weiter zu XE wäre aber vermutlich mit einem Arbeitsaufwand verbunden, den die Firma nicht zahlen würde.

Gruß,
WiWo

[Uwe Raabe]

Zitat von WiWo:

zu denen es teilweise nur DCUs aber keine Quellen gibt. Das alles von D7 auf D2007 zu hieven war schon eine Herausforderung

Wie geht denn das ohne Quellen? Oder habt ihr für D2007 noch die passenden DCUs?

[WiWo]

Hallo Uwe,

bei den DCUs bzw. BPLs ohne Quellen handelt es sich um Fremdsoftware, die die Firma mal zugekauft hat. Zum Beispiel eine TAPI-Anbindung, zu der es für 7 verschiedene Delphi-Versionen die Units gibt; zum Glück ist D2007 noch dabei. In diesem Fall existiert der Anbieter noch und wir könnten eine neue Version kaufen, aber meiner Erfahrung steckt auch hinter sowas meist ein mehrtägiger Zeitaufwand.

Und es gibt jede Menge Schnittstellen zu allem Möglichen, z.B. sind alleine 15 verschiedene Typen von Industrie-Waagen angebunden; teilweise sind das ActiveX Controls oder/und es gab von den Herstellern Demo-Units für Delphi, die irgendwie eingebunden wurden. Bei D2007, der letzten ANSI-Version, sind die Risiken beim Update von D7 überschaubar, aber bei den späteren Versionen sind doch größere Umbauten zu erwarten.

Gruß,
Winfried