Moin Moin.

Kann man eigentlich ein Formular, in das zur Laufzeit Steuerelemente eingefügt werden, MIT diesen Steuerelementen speichern?

geldis

Ja, aber soweit ich weiß gibt es dazu keine Standardfunktion, sondern man muss es selbst programmieren.

Zitat von geldis:

Kann man eigentlich ein Formular, in das zur Laufzeit Steuerelemente eingefügt werden, MIT diesen Steuerelementen speichern?

Ja. Wenn es was kosten darf auch fertig mit DevExpress Layout Control.

Bis bald...
Thomas

Die DFM ist ja eine Datei wie jede andere auch, da kann man halt alles reinschreiben. Aber auch in die die PAS müssen die neuen Objekte eingefügt werden. Nur bringt Dir das alles nix, wenn Du nicht zu irgendeinem Zeitpunkt das Projekt neu erzeugst. Aber alles lässt sich programmieren und automatisieren. Dürfte recht viel Fleißarbeit werden.

Das geht erstmal ganz einfach:

markieren

Delphi-Quellcode:

procedure SaveFormToFileAsBinary(AForm: TForm; const AFileName: string);
begin
  WriteComponentResFile(AFileName, AForm);
end;

Das speichert das Form im Binärformat. Soll es stattdessen im Textformat sein ist etwas mehr notwendig:

zusammenfalten · markieren

Delphi-Quellcode:

procedure SaveFormToFileAsText(AForm: TForm; const AFileName: string);
begin
  var stream := TFileStream.Create(AFileName, fmCreate);
  try
    var mem := TMemoryStream.Create;
    try
      mem.WriteComponent(AForm);
      mem.Position := 0;
      ObjectBinaryToText(mem, stream);
    finally
      mem.Free;
    end;
  finally
    stream.Free;
  end;
end;

Die Frage ist nur: Was willst du mit diesen Dateien anfangen?

Natürlich müssen alle Komponenten, welche sich in der DFM befinden, auch bekannt sein, bevor man die DFM wieder laden will.
RegisterClass / RegisterClasses

Normal macht Delphi das automatisch, z.B. beim Create einer Form-Klasse, indem es alle TComponent-Typen der Published-Variablen der Klasse vorher registriert
und anschließend wieder deregistriert.
UnRegisterClass / UnRegisterModuleClasses (z.B. HInstance einer BPL/DLL/EXE)

PS: Drum knallt es auch, wenn alle "Variablen" eines Types aus der Klasse gelöscht wurden.
Für statische Komponente, wie z.B. Labels, welche nie geändert und somit nie direkt im Code drauf zugegriffen wird, keine Variablen. Und alles was über FindComponent geht, dafür auch nicht.
Per se wird für das Funktionieren keine Variable benötigt (TComponent-Nachfahren füllen, bei Zuweisung ihres Namens, die gleichnamige Published-Variable, in ihrem Owner ... ACHTUNG, egal welchen Typ diese Variable besitzt),
aber wenn vorher kein manuelles RegisterClass vorkam, dann muß zwangsläufig mindestens eine Variable des nötigen Typs in der Klasse existieren, oder in ihren Vorfahren.


Wir speichern so z.B. zur Laufzeit generierte dynamische Eingabeformulare und Datenanzeigefenster in der Datenbank.
PS: Es gibt von einigen Herstellern auch Property-Inspektoren und, falls man es nicht selbst machen will, auch FormDesigner, um Komponenten mit der Maus umherschieben zu können.

Ob man zum Laden das Fenster vom DFM-Reader automatisch erstellen will,
oder eine bereits erstellte Instanz seines Basisformular (eigene FormKlasse) mit Komponenten aus dieser DFM befüllen will,
muß man selbst entscheiden.

Um einen TForm-Nachfahen erstmal ohne DFM zu erstellen,
TCustomForm.CreateNew

TCustomForm und TForm kann direkt mit Create erstellen werden.
Nach gleichnamigen DFM-Ressourcen wird erst bei Nachfahren von TForm gesucht, für jeden einzelnen Vorfahren, bis dort hin.

Hossa!

Danke für die Antworten. Was ich damit will? Etwas ausprobieren von dem ich auch noch nicht so recht weiß was das werden soll.....

Vielendank an alle!

geldis