Positionen aller Forms wiederherstellen

[hoika]

Hallo,

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

WP.Length ist mir jetzt auch klar

TWindowPlacement ist ein Record. Ein Zeiger wird an Windows übergeben,
damit weiss Windows nicht, wie gross bzw. wie viele Felder der hat.
Es könnten ja mit neuen Windows-Versionen neue Felder hinzukommen.

Length ist meistens das 1. Feld des TRecords.

Indem du ihm "deine" Record-Länge angibst,
weiss Windows, welche Record-"Version" du hast.

Zu var_2

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;

Und bei der Gelegenheit solltest du mal deine Tab-Taste ölen,
die hängt

Einzüge sind in der Regel 2 Leerzeichen, nicht Tab.


Heiko