Formkoordinaten speichern

[Hansa]

@Ichbins : lege Dir mal einen identifizierbaren Namen zu. Ich bin das nämlich nicht. Der Tip ist trotzdem ganz gut, aber warum nicht gleich richtig ?

Delphi-Quellcode:

procedure Tfrm.FormShow(Sender: TObject);
var FensterIni : TIniFile;
begin
  inherited;
  Caption := 'MeinProgramm';
  try
    FensterIni := TIniFile.Create(FensterDateiName);
    Left   := FensterIni.ReadInteger(Name,'Left',Left);
    Top    := FensterIni.ReadInteger(Name,'Top',Top);
    Width  := FensterIni.ReadInteger(Name,'Width',Width);
    Height := FensterIni.ReadInteger(Name,'Height',Height);
  finally
    FensterIni.Free;
  end;
end;

Bei Ichbins wird ein fester Name verwendet. Im Beispiel ist der völlig egal und bezieht sich auf jede Form. Bist Du so schlau und verwendest OOP oder einfach nur die Objektablage, dann kann man diese Prozedur mal prinzipiell einbauen und hat sie automatisch immer verfügbar ! Die Formen verwalten sich quasi selbst. Siehe die Caption. Nun kann man noch weiter gehen und den Dateinamen für jeden User im Userverzeichnis speichern und schon hat jeder User seine eigenen Programmkoordinaten.