Positionen aller Forms wiederherstellen

[Hansa]

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;