TForm Position und Größe beim beenden speichern

[Hansa]

mit den INIs geht das so :

Delphi-Quellcode:

procedure TfrmKey.FormShow(Sender: TObject);
var FensterIni : TIniFile;
begin
  inherited;
  try
    FensterIni := TIniFile.Create(ExtractFilePath (ParamStr (0))+'FENSTER.INI');
    Left := FensterIni.ReadInteger(Name,'Left',Left);
    Top  := FensterIni.ReadInteger(Name,'Top',Top);
  finally
    FensterIni.Free;
  end;
end;

procedure TfrmKey.FormClose(Sender: TObject; var Action: TCloseAction);
var FensterIni : TIniFile;
begin
  try
    FensterIni := TIniFile.Create(ExtractFilePath (ParamStr (0))+'FENSTER.INI');
    FensterIni.WriteInteger(Name,'Left',Left);
    FensterIni.WriteInteger(Name,'Top',Top);
  finally
    FensterIni.Free;
  end;
  Action := caFree;
end;

Ich empfehle allerdings wie immer, das ganze in die Objektablage zu speichern und nicht mehr eine neue Form zu erstellen, sondern die eigene aus der Objektablage zu verwenden. Dann sind diese Sachen nämlich schon automatisch mit drin, ohne was zu ändern. Und das für jede davon abgeleitete Form Ich weiß, es nützt wohl nichts. 8)