Positionen aller Forms wiederherstellen

[Schwedenbitter]

Zitat von hoika:

Form-Vererbung findest im Handbuch bzw. in der Hilfe-Datei.

Danke. Das werde ich mir dann mal bei Gelegenheit reinziehen.

Zitat von hoika:

Klappt bei mir mit einer Ausnahme,
Maximized wird falsch geladen.
Das musst du selber abfangen.

Delphi-Quellcode:

            ReadBinaryData(Wnd.Name, Pos, SizeOf(TPos));
            CloseKey;

            Wnd.WindowState:= Pos.WState;
                                if Wnd.WindowState<>wsMaximized then
                                begin
                                  Wnd.Left:=         Pos.Left;
                                  Wnd.Top:=          Pos.Top;
                                  Wnd.Width:=         Pos.Width;
                                  Wnd.Height:=      Pos.Height;
                                end;

Das will ich so aber nicht.

Den Umweg über TWindowPlacement bin ich doch extra gegangen, damit ich auch bei einem maximierten Fenster die Abmessungen bekomme, die es im normalen Zustand (=wsNormal) hat.
Wenn ich jetzt die Werte zurück auf das Fenster übertrage, soll es ja auch maximiert sein. Aber versuche mal, mit Deinem Code ein so maximiertes Fenster zu minimieren. Das wird ohne das Zuweisen der Werte für Left, Top, ... nicht klappen. Bei mir kommen dann so Sachen wie -4 bei Top und Left heraus. Ein Klick auf den Minimieren-Button quittiert das System dann mit einem einfachen statt doppelten Rahmen aber das Fenster bleibt dann riesig.

Bei mir funktioniert die 2. Variante des Codes jetzt komischer Weise...

Gruß, Alex