komponentenklasse feststellen

[quirks]

Sorry, falls das schon behandelt wurde, aber ich kann beim besten Willen hier nichts dazu finden.
Ich möchte, je nachdem, was für einer Klasse eine bestimmte Komponente angehört, bestimmte Eigenschaften bearbeiten.

Zur Verdeutlichung:

Code:

if Acomponent is TButton then TButton(Acomponent).Caption:='abc';
if Acomponent is TLabel then TLabel(Acomponent).Tag:=1;

das mit is ist natürlich nur ein Pseudo-Code. Aber genau diese Funktion suche ich.


grüße, quirks

[Oxmyx]

Wenn ich richtig verstanden habe was du willst, dann dürfte dein Code exakt so wie du ihn geschrieben hast bereits funktionieren. "is" ist in Delphi der Vergleichsoperator für Objekte.

[quirks]

Oh. Stimmt, habs grad probiert. Hatte ich wohl doch schon mal gemacht und irgendwo im Hinterkopf gespeichert. Super. Danke

[semo]

Delphi-Quellcode:

if Acomponent.ClassName = 'TButton' then TButton(Acomponent).Caption := 'abc';
if Acomponent.ClassName = 'TLabel'  then TLabel(Acomponent).Tag      := 1;

kann man auch verwenden

[quirks]

ah. genau sowas wie das hab ich gesucht. ich habs jetzt erledigt. läuft tatsächlich

[semo]

bzw.

Delphi-Quellcode:

if Acomponent.ClassNameIs('TButton') then TButton(Acomponent).Caption := 'abc';
if Acomponent.ClassNameIs('TLabel')  then TLabel(Acomponent).Tag      := 1;

[Sidorion]

Schreib aber trotzdem lieber:
(AComponent As TButton).Caption:='foo'; Ist vernünftiger Typcast und bringt imho auch kein Warning im .net. Die Harten Typcasts TFoo(Bar) sollte man nach Möglichkeit vermeiden