Ermitteln ob eine Kompo (Klasse) eine Eigenschaft hat?

[Sharky]

Hei ihr,

gibt es eine gute Methode zu prüfen ob ein TObject, welches der Sender ist, ein bestimmtest Property hat?

Ich möchte im OnMouseDown einer Form (oder OnClick einer Kompo) ermitteln ob der Sender eine Caption hat. Wenn ja möchte ich etwas damit machen.

[Khabarakh]

Wenn das Objekt von TPersistent abgeleitet ist (oder AFAIR irgendein Kompilerschalter aktiviert ist), sollte das über die RTTI gehen.

Delphi-Quellcode:

TypInfo.IsPublishedProp(Sender, 'Caption')

Wie der Name schon sagt, muss die Property published sein :wink: .

[edit]Auslesen wäre natürlich auch nicht schlecht:
TypInfo.GetStrProp
[/edit]

[tomsel]

Hi,

Die Eigenschaft Caption wird meines Wissens von TControl eingeführt. Also könnte man mittels Irgendwas.InheritsFrom(TControl) feststellen, ob Irgendwas eine Caption hat. Allerdings hat eine Prozedur vom Typ TNotifyEvent einen Parameter vom Typ TComponent, der wiederum von TControl erbt. Daher kann man innerhalb einer Prozedur "OnIrgenEinEreignis(Sender:TComponent)" einfach davon ausgehen, dass der Sender eine Caption besitzt. (richtig?)

Gruß
tomsel

[xaromz]

Hallo,

Zitat:

Zitat von tomsel

Allerdings hat eine Prozedur vom Typ TNotifyEvent einen Parameter vom Typ TComponent, der wiederum von TControl erbt.

Nö, TNotifyEvent hat ein TObject als Parameter, muss ja flexibel bleiben...

Gruß
xaromz

[tomsel]

ja, stimmt, sorry. Aber InheritsFrom sollte funktionieren.

tomsel

[Der_Unwissende]

Zitat:

Zitat von tomsel

Die Eigenschaft Caption wird meines Wissens von TControl eingeführt.

Stimmt.

Zitat:

Zitat von tomsel

Parameter vom Typ TComponent, der wiederum von TControl erbt. Daher kann man innerhalb einer Prozedur "OnIrgenEinEreignis(Sender:TComponent)" einfach davon ausgehen, dass der Sender eine Caption besitzt. (richtig?)

Umkekehrt, TControl erbt von TComponent und damit hätte auch kein Parameter vom Typ TComponent eine Caption (ab TControl ist's sichtbar).

Gruß Der Unwissende

[dataspider]

Hi,
RTTI ist sicher ein guter Weg! Dann funktioniert es auch bei eigenen Objekten, die nicht von TComponent abgeleitet sind.
Dieses Beispiel ändert die Caption des Senders:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if IsPublishedProp(Sender, 'Caption') then
    SetStrProp(Sender, 'Caption', 'Hallo');
end;

Nicht vergessen, Unit TypInfo in uses...
Gruß, Frank

[Sharky]

Hai ihr,

danke für eure Tips.

Ich habe jetzt den Code von der Datenspinne *g* genommen da er genau das macht was ich in meinem Programm einbauen wollte (mit einer kleinen Anpassung)