Fensterpositionen mit Hilfe einer Unit speichern

[bcvs]

Zitat von 98Ferd:

Kann man derartige Methoden so auslagern, dass sie automatisch beim erstellen/ schließen eines Forms ausgeführt werden?

Ja, über eine gemeinsame Basisklasse.

Der erste Schritt dazu ist allerdings, nicht auf die eigene Instanzvariable zuzugreifen:

Delphi-Quellcode:

procedure THauptfenster_Uebung.OnCreate(Sender: TObject);
var ini:TIniFile;
    Filename, formname:string;
begin
  formname:= Name; // <- Sender ist doch das Form selbst, also brauchst du hier nichts zu casten
  filename := 'E:\Projekte\Uebung\TestIni.Ini';
  ini := TInifile.create(filename);
  Width:= ini.ReadInteger('Hauptfenster', 'Width', 0); // <-nicht Hauptfenster_Uebung.Width
  Height:= ini.ReadInteger('Hauptfenster', 'Height', 0);
  Left:= ini.ReadInteger('Hauptfenster', 'Left', 0);
  Top:= ini.ReadInteger('Hauptfenster', 'Top', 0);
  // hier fehlt ein ini.free
 
end;