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:

Zitat von DeddyH (Beitrag 1354034)

Gab es da nicht sowas in der JVCL?

Jupp, TJvFormStorage

[Bambini]

Zitat:

Zitat von 98Ferd (Beitrag 1354035)

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:

Zitat von 98Ferd (Beitrag 1354035)

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;

[nahpets]

Nutze seit Jahren dashier http://torry.net/vcl/forms/savers/rg.zip (bzw. eine von mir angepasste Form).

Auf der Seite http://torry.net/pages.php?id=96 gibt es noch ein paar Sachen, die sich mit der Aufgabenstellung befassen.

Hab' das Original von weiter oben mal angepasst.

Delphi-Quellcode:

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

procedure THauptfenster_Uebung.OnDestroy(Sender: TObject);
var ini:TIniFile;
    Filename:string;
begin
  ini := TInifile.create(filename);
  ini.WriteInteger(Name, 'Height', Height);
  ini.WriteInteger(Name, 'Width', Width);
  ini.WriteInteger(Name, 'Top', Top);
  ini.WriteInteger(Name, 'Left', Left);
  ini.Free;
end;

Diese Methoden muss man dann nur dem OnCreate bzw. dem OnDestroy aller Formulare zuweisen.

Wenn man sich das nun noch in 'ne eigene Komponente packt, könnte man es eventuell auch so in der (ungetesteten) Art lösen:

Delphi-Quellcode:

unit RegForm;

interface

type
  TRegForm = class(TComponent)
    fFileName : String;
  public
    { Public-Deklarationen }
    constructor Create(AComponent:TComponent); override;
    destructor  Destroy;                       override;
    procedure   Read(a : TForm); overload;
    procedure   Read; overload;
    procedure   Write(a : TForm);
    procedure   Write; overload;
    property FileName : String read fFileName write fFileName;
  end;

procedure Register;

implementation

uses
  INIFiles;

procedure Register;
begin
  RegisterComponents('Tools', [TRegForm]);
end;

constructor TRegForm.Create(AComponent:TComponent);
begin
  Inherited Create(AComponent);
  fFileName := Format('.\%s.ini',[AComponent.Name]);
end;

destructor  TRegForm.Destroy;
begin
  Inherited;
end;

procedure TRegForm.Read(a : TForm);
var 
  ini : TIniFile;
begin
  if a is TForm then begin
    ini := TInifile.create(fFileName);
    a.Width := ini.ReadInteger(a.Name, 'Width', a.Width);
    a.Height := ini.ReadInteger(a.Name, 'Height', a.Height);
    a.Left := ini.ReadInteger(a.Name, 'Left', a.Left);
    a.Top := ini.ReadInteger(a.Name, 'Top', a.Top);
    ini.Free;
  end;
end;

procedure TRegForm.Save(a : TForm);
var 
  ini : TIniFile;
begin
  if a is TForm then begin
    ini := TInifile.create(fFileName);
    ini.WriteInteger(a.Name, 'Height', a.Height);
    ini.WriteInteger(a.Name, 'Width', a.Width);
    ini.WriteInteger(a.Name, 'Top', a.Top);
    ini.WriteInteger(a.Name, 'Left', a.Left);
    ini.Free;
  end;
end;

procedure TRegForm.Read;
var
    i : Integer;
begin
  for i := 0 to Screen.FormCount - 1 do begin
    Read(Screen.Forms[i]);
  end;
end;

procedure TRegForm.Write;
var
    i : Integer;
begin
  for i := 0 to Screen.FormCount - 1 do begin
    Write(Screen.Forms[i]);
  end;
end;

end.

Komponente auf ein Formular packen und
beim Programmstart an geeigneter Stelle

Delphi-Quellcode:

RegForm.Filename := 'Der gewünschte Name, wenn der Defaultwert aus dem Constructor nicht ok ist.ini';
RegForm.Read;

und beim Programmende

Delphi-Quellcode:

RegForm.Write;