Einzelnen Beitrag anzeigen

Benutzerbild von littleDave
littleDave

Registriert seit: 27. Apr 2006
Ort: München
556 Beiträge
 
Delphi 7 Professional
 
#16

Re: Problem mit Object Inspector

  Alt 30. Aug 2008, 01:13
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;
Jabber: littleDave@jabber.org
in case of 1 is 0 do external raise while in public class of object array else repeat until 1 is 0
  Mit Zitat antworten Zitat