Ach so, das hab ich nicht gewusst, tut mir leid
- da war ich wohl zu voreilig. Entschuldigung bitte.
Ich dachte, du hast das Problem immer noch, daher meine Reaktion. Ich hab gerade genau das Event gefunden, dass du suchst:
OnSelectionChange
Eine Implementierung könnte so aussehen:
Delphi-Quellcode:
procedure TForm1.JvDesignPanelSelectionChange(Sender: TObject);
var obj: TObject;
begin
// falls nichts ausgewählt wurde, abbrechen
if length(JvDesignPanel.Surface.Selected) = 0 then
exit;
// das erste Objekt abrufen
Obj := JvDesignPanel.Surface.Selected[0];
// Sicher ist sicher, lieber nochmal überprüfen
if Assigned(Obj) then
if Obj is TControl then
// Jetzt kannst du die Daten in den Objekt-Inspektor laden
AddControls(TControl(Obj), Obj.ClassName);
end;