Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by stahli,
2. Okt 2008
So, danke an alle!
Das funktioniert jetzt wunderbar.
Meine Komponenten enthalten jetzt lediglich zwei Methoden zum Schreiben und Lesen in bzw. aus einer TExtIniFile.
Dabei können beliebige Daten (auch binäre Daten, einigene Objekte und Zeiger auf fremde Objekte) gespeichert und wieder hergestellt werden.
Für das Wiederherstellen von Objekten müssen die entsprechenden Klassen vorher...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by stahli,
30. Sep 2008
Mannooo!
Jetzt bin ich fast fertig, damit und dann lässt sich eine TComponent so nicht zuweisen :-(
procedure TExtIniFile.ReadComponentProperty(PropertyComponent: TComponent;
PropertyName, Section, Ident: String);
var
S: String;
CN: String;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by stahli,
30. Sep 2008
Ich werde eine Methode
TExtIniFile.WriteComponentPointerProperty(Component, 'PropertyName', ...);
TExtIniFile.ReadComponentPointerProperty(Component, 'PropertyName', ...);
implementieren.
Alle vorerst gescheiterten Zuweisungsversuche könnten dann in einer Liste gesammel werden (Component, PropertyName, Zielkomponenten-Bezeichnung).
Später kann ich über IsPublishedProp und SetPropValue...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by stahli,
30. Sep 2008
Warum Du fragst ist eigentlich egal ;-)
Ich hatte zum Einen keinen wirklichen Zugang zu den Streaming-Funktionen gefunden. Zwar habe ich verstanden, wie das grundsätzlich funktioniert, aber das für meine Zwecke zu verwenden erschien mir zu kompliziert und nicht genau passend.
- Mit meiner Version bin ich nicht an bestimmte Reihenfolgen gebunden.
- Jede Komponente kann ihre Daten lesen und...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by stahli,
30. Sep 2008
Bis auf den Smily ist das eigentlich nachvollziehbar. Der Smily gehört aber so: :(
Nein, das eben - nach meinem Verständnis - nicht. Zu dem Zeitpunkt bei dem ich Panel2 "verschieben" möchte, ist Panel3 noch unbekannt (nicht existent). Irgendwann kenne ich dann mal Panel3 und dann möchte ich die entsprechende Zuweisung NACHHOLEN.
Dazu brauche ich doch die ADRESSE des Pointers auf Panel2...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by stahli,
29. Sep 2008
Hallo alle,
ich habe eine Funktion, die zu einer bestimmten Textbezeichnung eine Komponente ermittelt und zurückgibt:
xyz := GetMyComponent(DescriptionName, ClassName: String; CreateFlag: Boolean): TComponent;
Existiert eine passende Komponente noch nicht, wird sie ggf. direkt in der Funktion erzeugt.
Zu jeder Bezeichnung wird die gelieferte Komponente in einer StringList gespeichert...