Forum: Object-Pascal / Delphi-Language
by bogdan,
2. Nov 2013
Hi Stahli, danke für deine Zeit, werde mir mal den Code genauer anschauen.
Forum: Object-Pascal / Delphi-Language
by bogdan,
31. Okt 2013
Ich versuche es nochmal:
zb.: Eigenschaften eines TLabel werden zur Laufzeit geändert:
TLabel.Color
funktioniert mit SetPropValue(TLabel, 'Color', StringToColor('clBlue'));
oder
TLabel.Align
Forum: Object-Pascal / Delphi-Language
by bogdan,
30. Okt 2013
Ich benutze die XE3 Version.
SetPropValue(Label1, 'Caption', 'test'); funktioniert!
SetObjectProp(Label1, 'Font', Functionsaufruf mit TObject als Rückgabewert); funktioniert!
Leider stehe ich bei meinem Ansatz auf dem Schlauch:
zb. Font.Size ändern
aufgerufen mit OnClick Methode:
SetPropertyObject('Font', 'Size', '12');
Forum: Object-Pascal / Delphi-Language
by bogdan,
29. Okt 2013
Sorry, habe mich etwas unverständlich ausgedrückt.
Ich meinte nicht die Funktion zur Laufzeit erzeugen, sondern die Zuweisung der Eigenschaften des Objekts. Also dass was die Function "hardcoded" ausführt möchte ich umschreiben, dass ich die .Font.Color, .Font.Size, oder .Pen.Width, .Pen.Color, etc. zur Laufzeit als Objekt erstellen und zuweisen kann.
Ich erstelle ein zb. ein TFont Objekt...
Forum: Object-Pascal / Delphi-Language
by bogdan,
29. Okt 2013
Alle Komponenten werden zur Laufzeit erzeugt. Mit SetPropValue(AComponent, APropName, APropValue) setze ich die Eigenschaften der Komponenten.
Mit SetObjectProp(aObject, APropSub, AValue) setze ich dann die Eigenschaft eines TFont Objektes.
Das Value wird mit der folgenden Funktion zusammen gesetzt:
function SetProperty_Font:TObject;
var A : TFont;
begin
A := TFont.Create;
A.Color...