Zitat von
busybyte:
..zeigst du mir die 2 zeilen mal bitte? ich lerne gerne was dazu
Delphi-Quellcode:
procedure TfrmAus.FormShow(Sender: TObject);
var FensterIni : TIniFile;
begin
FensterIni := TIniFile.Create(FensterDateiName);
try
Left := FensterIni.ReadInteger(Name,'Left',Left);
Top := FensterIni.ReadInteger(Name,'Top',Top);
// + sonstiges formspezifische
finally
FensterIni.Free;
end;
Das steht auch in deinem Source drin. Nur : das Drumrum ist überflüssig und versteht auch kaum einer. Wie hoika sagt : vererbe solche Sachen. Es gilt lediglich, die einmal zu schreiben und prompt hat jede Form diese Funktionalität (->Objektablage).
Stop, das ist ja nur das, wenn die Form neu angezeigt wird. Um sich das zu merken :
Delphi-Quellcode:
procedure TfrmAus.FormClose(Sender: TObject;
var Action: TCloseAction);
var FensterIni : TIniFile;
begin
try
FensterIni := TIniFile.Create(FensterDateiName); //FensterDateiName));
if not CDstart then begin // auf CD kann nicht gespeichert werden !
FensterIni.WriteInteger(Name,'Left',Left);
FensterIni.WriteInteger(Name,'Top',Top);
end;
finally
FensterIni.Free;
end;
Action := caFree;
end;