Einzelnen Beitrag anzeigen

bcvs

Registriert seit: 16. Jun 2011
703 Beiträge
 
Delphi 12 Athens
 
#10

AW: Fensterpositionen mit Hilfe einer Unit speichern

  Alt 17. Nov 2016, 20:26
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;
  Mit Zitat antworten Zitat