MoveRootIOD Example for Delphi

Private Sub Command14_Click()
   LEADDicomDS1.EnableMethodErrors:= True;

   //Move to the Root IOD
   LEADDicomDS1.MoveRootIOD ();
   ShowMessage(LEADDicomDS1.DefaultInterface.Get_CurrentIOD().Name);

   //Move to the first Child IOD
   LEADDicomDS1.MoveChildIOD;
   ShowMessage(LEADDicomDS1.DefaultInterface.Get_CurrentIOD().Name);

   //Move back to the Parent IOD
   LEADDicomDS1.MoveParentIOD ();
   ShowMessage(LEADDicomDS1.DefaultInterface.Get_CurrentIOD().Name);