Das hier ist jetzt auf eine abgeleitete Form bezogen, um die Fensterkoordinaten des jeweiligen Windows eines Benutzers direkt zu speichern (Achtung ! Prozedur ist verkürzt, ohne C+P Garantie !) :
Delphi-Quellcode:
procedure Tfrm.FormClose(Sender: TObject;
var Action: TCloseAction);
var FensterIni : TIniFile;
begin
inherited;
try
FensterIni := TIniFile.Create(FensterDateiName); // Dateiname projektbezogen und global
FensterIni.WriteInteger(Name,'Left',Left);
FensterIni.WriteInteger(Name,'Top',Top);
end;
finally
FensterIni.Free;
end;
Action := caFree;
end;
Je nachdem, welchen Dateinamen man wählt, können damit recht einfach ganze User-"Profile" notfalls einfach umkopiert werden. In ähnlicher Weise können die Items der Listbox etc. behandelt werden.