Problem mit Object Inspector

[littleDave]

Also der JvInspector ist schon etwas komplizierter, um ihn mal kurz zu erklären. Der kann sowohl mit RTTI und ohne RTTI benutzt werden. Hier mal ein einfaches Beispiel, um an ein Label in den Inspector zu bekommen (mit RTTI):

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    Label1: TLabel; // das Label
    JvInspector1: TJvInspector; // der Inspektor
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    procedure ShowObject(aObj: TObject);
  end;

implementation

procedure TForm1.FormCreate(Sender: TObject);
begin
  ShowObject(Label1);
end;

procedure TForm1.ShowObject(aObj: TObject);
begin
  JvInspector1.Root.Clear;  
  TJvInspectorPropData.New(JvInspector1.Root, aObj);  
end;