Fensterpositionen mit Hilfe einer Unit speichern

[98Ferd]

Hi Leute,
Ich will eine Unit schreiben die beim schließen von Forms deren Größe und Position speichert, und beim öffnen dieser die Daten ausliest und anwendet.
Um das ganze allgemein zu halten, damit ich es für alle meine Programme anwenden kann, muss ich irgendwie die Namen aller Forms rausfinden. Irgendwelche Vorschläge wie ich das mache?

Danke schon einmal im Voraus!

[Luckie]

Ich würde eine Klasse erstellen mit einer öffentlichen Methode, die die Position entgegen nimmt. Und diese Methode dann, wenn erforderlich, von der Form aus mit der Position aufrufen.

[DeddyH]

Aus dem Hut und ungetestet:

Delphi-Quellcode:

for i := 0 to Screen.FormCount - 1 do
  SpeichereForm(Screen.Forms[i]);

[hoika]

Hallo,
also ich habe das über ein gemeinsames Basisform gemacht.

[DeddyH]

Gab es da nicht sowas in der JVCL?

[98Ferd]

In dem Fall müsste ich die Methode doch in jedem Form aufrufen, und die Forms alle Form1, Form2 ... nennen oder?
Hier ist der Code den ich in eine Unit auslagern will:

Delphi-Quellcode:

procedure THauptfenster_Uebung.OnCreate(Sender: TObject);
var ini:TIniFile;
    Filename, formname:string;
begin
  formname:= TComponent(Sender).Name;
  filename := 'E:\Projekte\Uebung\TestIni.Ini';
  ini := TInifile.create(filename);
  Hauptfenster_Uebung.Width:= ini.ReadInteger('Hauptfenster', 'Width', 0);
  Hauptfenster_Uebung.Height:= ini.ReadInteger('Hauptfenster', 'Height', 0);
  Hauptfenster_Uebung.Left:= ini.ReadInteger('Hauptfenster', 'Left', 0);
  Hauptfenster_Uebung.Top:= ini.ReadInteger('Hauptfenster', 'Top', 0);
end;

procedure THauptfenster_Uebung.OnDestroy(Sender: TObject);
var ini:TIniFile;
    Filename:string;
begin
  filename := 'E:\Projekte\Uebung\Test_Ini.ini';
  ini := TInifile.create(filename);
  ini.WriteInteger('Hauptfenster', 'Height', Hauptfenster_Uebung.Height);
  ini.WriteInteger('Hauptfenster', 'Width', Hauptfenster_Uebung.Width);
  ini.WriteInteger('Hauptfenster', 'Top', Hauptfenster_Uebung.Top);
  ini.WriteInteger('Hauptfenster', 'Left', Hauptfenster_Uebung.Left);
  ini.Free;
end;

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

[Stevie]

Zitat von DeddyH:

Gab es da nicht sowas in der JVCL?

Jupp, TJvFormStorage

[Bambini]

Zitat von 98Ferd:

In dem Fall müsste ich die Methode doch in jedem Form aufrufen, und die Forms alle Form1, Form2 ... nennen oder?
Hier ist der Code den ich in eine Unit auslagern will:

Delphi-Quellcode:

procedure THauptfenster_Uebung.OnCreate(Sender: TObject);
var ini:TIniFile;
    Filename, formname:string;
begin
  formname:= TComponent(Sender).Name;
  filename := 'E:\Projekte\Uebung\TestIni.Ini';
  ini := TInifile.create(filename);
  Hauptfenster_Uebung.Width:= ini.ReadInteger('Hauptfenster', 'Width', 0);
  Hauptfenster_Uebung.Height:= ini.ReadInteger('Hauptfenster', 'Height', 0);
  Hauptfenster_Uebung.Left:= ini.ReadInteger('Hauptfenster', 'Left', 0);
  Hauptfenster_Uebung.Top:= ini.ReadInteger('Hauptfenster', 'Top', 0);
end;

procedure THauptfenster_Uebung.OnDestroy(Sender: TObject);
var ini:TIniFile;
    Filename:string;
begin
  filename := 'E:\Projekte\Uebung\Test_Ini.ini';
  ini := TInifile.create(filename);
  ini.WriteInteger('Hauptfenster', 'Height', Hauptfenster_Uebung.Height);
  ini.WriteInteger('Hauptfenster', 'Width', Hauptfenster_Uebung.Width);
  ini.WriteInteger('Hauptfenster', 'Top', Hauptfenster_Uebung.Top);
  ini.WriteInteger('Hauptfenster', 'Left', Hauptfenster_Uebung.Left);
  ini.Free;
end;

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

Das klappt aber nicht richtig, wenn die Minimiert oder Maxmiert sind. Dann muss man die eigentliche Position mit GetWindowPlacement() holen.

[t.roller]

Description
Load or save form setting with one line of code.
Tired of using INI files and writing hundreds or thoussands of lines of hard-coded strings?
No additional components, all you have to do is use FormPersist.pas and call LoadForms() and SaveForms() somewhere in your code.

http://torry.net/vcl/forms/savers/FormPersist.zip

[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;