Einzelnen Beitrag anzeigen

hoika

Registriert seit: 5. Jul 2006
Ort: Magdeburg
8.276 Beiträge
 
Delphi 10.4 Sydney
 
#12

Re: Positionen aller Forms wiederherstellen

  Alt 13. Jan 2010, 14:10
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
Heiko
  Mit Zitat antworten Zitat