Der Klassentyp des Owners ist Owner.ClassType
. 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.