Articles

Code example:

procedure TMainFrm.Button1Click(Sender: TObject);  
var  
  i:integer;  
  AShape:TMyShape;  
begin  
  AShape:=MyCAD1.GetSelectedShape;  
  If AShape.HasChildshapes then  
    For i:=0 to High(AShape.ChildShapesNo) do  
      ShowMessage((AShape.Owner as TMyCAD).GetShapeByNo(AShape.ChildShapesNo[i]).Name);  
end;