FindComponent auch für property ???

[Martin K]

Cool, das funktioniert!!!! :thumb:

Vielen Dank an alle.

[Martin K]

Kaum ist ein Problem gelöst, kommt schon das nächste:

Funktioniert das auch mit einer "Untereigenschaft" ?

also z.B.:
Label1.Font.Name ????

Dieses Beispiel war ja für Label1.Caption

[JasonDX]

Zitat:

Zitat von Martin K

Kaum ist ein Problem gelöst, kommt schon das nächste:

Funktioniert das auch mit einer "Untereigenschaft" ?

also z.B.:
Label1.Font.Name ????

Dieses Beispiel war ja für Label1.Caption

Ja, die Klasse war TLabel, Label1 die Instanz davon, und Caption die Eigenschaft.
"Untereigenschaften" sind auch nur wieder Eigenschaften von Klassen. TLabel.Font ist vom Typ TFont, den Instanz-Zeiger kriegst du ueber Label1.Font, und die Eigenschaft heisst "Name". Funktioniert also gleich wie bei TLabel.Caption ;)

greetz
Mike

[jim_raynor]

Du müsstest mit GetObjectProp(Label1,'Font') das Schrift-Objekt ermitteln und dann wieder mit SetStrProp(Font,'Name','Test') setzen.

Delphi-Quellcode:

var
  tmpObject: TObject; // TObject da tatsächliche Klasse zur Laufzeit unbekannt ist und auch egal ist
begin
  tmpObject:=GetObjectProp(Label1,'Font');
  SetStrProp(tmpObject,'Name','Test);
end;

[Martin K]

Ja, das geht!
Danke :thumb:

Hab's noch etwas vereinfacht:
Das ganze geht auch in einer Zeile und ohne zusätzliche Variable:

Delphi-Quellcode:

SetStrProp(GetObjectProp(FindComponent('Label1'), 'Font'), 'Name', 'Arial');

Das ganze ändert also die Schriftart von Label1 in Arial,
wobei alles nur in Strings übergeben wird!

[Martin K]

Hi, ich bin's nochmal:

Ist es auch irgendwie möglich, den Defaultwert einer property abzufragen?

[fkerber]

Hi!

Was meinst du mit "Default-Wert"?
Den Wert den sie beim Start des Programms haben/hatten?


Ciao Frederic

[Martin K]

Zitat:

Zitat von fkerber

Hi!

Was meinst du mit "Default-Wert"?
Den Wert den sie beim Start des Programms haben/hatten?


Ciao Frederic

Ja, genau den!
Bzw. den Wert, den eine Property annimmt, wenn nichts an der entspr. Stelle in der dfm-Datei steht.

z.B. ist der Defaultwert der Property 'Transparent' eines TLabel FALSE.

[Martin K]

Wie kann man nun allg. den Default-Wert einer Property erhalten?
Ist das überhaupt möglich???

[mkinzler]

Da wird er den wert aus der klasse Lesen oder der Superklasse, wenn die Klasse auch kein Wert vorsieht.