Articles


First,drag the component of TComponentComboBox and TComponentInspector to a form.

Then,set ComponentCombox1's Root property as the instance of MyCAD1 and ComponentCombox1's ComponentInspector property as the instance of ComponentInspector1.

Last, To monitor the shape that after you "adding a shape" or "selecting a shape" , please add code like this :

Code example:

procedure TMainFrm.MyCAD1ShapeAdded( var AShape: TMyShape; ShapeCount: Integer); 
begin 
  ComponentComboBox1.Instance:=AShape; 
  ComponentInspector1.Instance:=ComponentComboBox1.Instance; 
end;