TChildhapeSelected = procedure (SelectedChildShape: TMyShape; var AcceptSelect:boolean) of object;

property OnChildShapeSelected: TChildhapeSelected


Description:

               Use OnChildShapeSelected to handle when you click the combine shape.


Example:

               procedure TMainFrm.MyCAD1ChildShapeSelected(SelectedChildShape: TMyShape; var AcceptSelect: Boolean);

               begin

                               AcceptSelect:=false;

               end;