Komplette Form und deren Inhalte speichern

[WS1976]

Hallo Sharky, hallo DP'ler,

wir bzw ich habe eine Lösung, basierend auf dem Vorschlag von Sharky, gefunden.
Mein Beispielcode besteht aus 2 Forms. Auf der ersten Form sind die Sicherungsroutinen untergbracht, die 2. wird gesichert.
Achtung auf der zweiten Form dürfen nur Komponenten vorkommen die ein Property "Text" besitzen. (Ist ein Fehler der noch beseitigt wird). Als Stack wird eine Tstringlist verwendet.

Zum Beispielcode:

PUSH - Sichern der Form (Inhalte)

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if s=nil then s:=tstringlist.create;
  Push(s,form2);
end;

POP - Rückholen der Form (Inhalte)

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
begin
  Pop(s,form2);
  s.clear;
end;

Die Stringlist "s" muss natürlich noch mit create erzeugt werden. Das gleiche gilt für das verlassen des Programms mit free.
Endgültiges Ziel meiner Arbeit ist es eine fertige Komponente zu erstellen und diese dann hier zu veröffentlichen.

Grüsse
Rainer