alles auf einmal speichern?

[sx2008]

Schreib dir eine Funktion, die ein TIniFile-Objekt und ein TControl-Objekt entgegennimmt:

Delphi-Quellcode:

procedure TTMainForm.SaveControlProsition(ini:TIniFile; control:TControl);
begin
  ..
end;

TImge,TEdit und TMemo sind ja alle von TControl abgeleitet.
Die Koordinaten kann man über die Properties Top und Left auslesen und zuammen mit dem Namen des Controls in der Ini-Datei speichern.

In der Komponentensammlung RxLib und JVCL gibt es übrigens eine Komponente (TFormStorage),
mit der du die Positionen ohne Programmieraufwand speichern und laden kannst.

[v2afrank]

JvDesignUtils einbinden und über

Delphi-Quellcode:

procedure DesignSaveComponentToFile(AComp: TComponent; const AFileName: string);
var
  FS: TFileStream;
begin
  FS := TFileStream.Create(AFileName, fmCreate);
  try
    DesignSaveComponentToStream(AComp, FS);
  finally
    FS.Free;
  end;
end;

speichern

[ConnorMcLeod]

oder mit Delphi-Boardmitteln: die komplette Form auf einmal speichern. Das Laden ist Hausaufgabe

Delphi-Quellcode:

var
  BinStream: TMemoryStream;
  StrStream: TStringStream;
begin
  BinStream := TMemoryStream.Create;
  try
    StrStream := TStringStream.Create('');
    try
      BinStream.WriteComponent(Form1);
      BinStream.Seek(0, soFromBeginning);
      ObjectBinaryToText(BinStream, StrStream);
      StrStream.Seek(0, soFromBeginning);
      StrStream.SaveToFile('d:\temp\text.txt');
    finally
      StrStream.Free;
    end;
  finally
    BinStream.Free
  end;
end;