Zitat von
littleDave:
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;
Kein Problem ..
Das ist super hab es direkt versucht und funktioniert.
War da auch drin konnte aber nicht direkt was mit anfangen da ich keinen vergleich hatte wann die aktion ausgeführt
werden soll mit dem addieren der Controls.
gruss Emil