Selektierte Komponente abfragen

[I.A]

Hallo!

Auch ich suche derzeit nach einer solchen Möglichkeit. Ich will einen eigenen Formdesigner bauen und brauche ein Ereignis, das bei Änderung der selektierten Komponente den Objektinspektor aktualisiert.

Delphi-Quellcode:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ClassInspector.Hide;
  ClassInspector.ClassProperties := ActiveControl;
  ClassInspector.Show;
end;

Hier ist Form1 der Formdesigner unter Verwendung der Komponente TSizeCtrl vom User _frank_ aus der DP. Classinspector ist der Objektinspektor.

Wenn ich zur Entwurfszeit ActiveControl in der FormCreate Methode fest einstelle, erhalte ich die Anzeige im OI wie gewünscht.

http://www.delphipraxis.net/internal...highlight=rtti

Nur, wenn ActiveControl zur Entwurfszeit NIL bleibt (Eintrag im Delphi-OI leer) und ich also die anzuzeigende Komponente zur Laufzeit auswähle, klappt das nicht. Wer kann hier helfen?