Wie Klasse des Besitzers herausfinden und benutzen?

[DevilsCamp]

Ich habe eine Komponente, abgeleitet von TGraphicControl.
Deren Owner muss ja auch nicht unbedingt ein TForm sein, sondern kann auf ein TPanel, TGroupBox o.ä. sein.

über z.B.

Delphi-Quellcode:

Edit1.ClassType.ClassName

Bekomme ich zwar die Klasse als String, aber wie kann ich das nun weiterverarbeiten?
Ich meine, dass ich z.B. folgenden Code ausführen kann:

Delphi-Quellcode:

procedure TMeineKomponente.SetInfo;
begin
  Self.InfoText := 'Mein Besitzer hat folgenden Titel: '+(Owner as OWNER_KLASSE).Caption;
end;

[Khabarakh]

Der Klassentyp des Owners ist Owner.ClassType :wink: . Auf diesem kannst du dann zwar die Instanz casten, aber es bringt dir nicht sehr viel.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Button1.Caption := (Button1.Owner as Button1.Owner.ClassType).ClassType.ClassName;
end;

Der obige Code lässt sich zwar kompilieren, aber du kannst nur auf die Member von TObject zugreifen. Denn wie soll der Compiler (und CodeInsight) zur Designtime wissen, welche Klasse(n) es nun im fertigen Programm ist/sind?

Aber was genau willst du eigentlich machen? Auf einen Member zugreifen, den mehrere Klassen, aber nicht ihre gemeinsame Hauptklasse gemein haben, wie eben z.B. Caption (eingeführt durch TCustomForm, TButtonControl, ...)? Da Caption eine Property ist, solltest du über die RTTI weiterkommen.

[marabu]

Vielleicht hilft das ja weiter: klick

Grüße vom marabu