Hi All, next code is from the FlowChartX Manual.

//--------------------------------------------------------------
Private Sub fc_MouseMove(ByVal docX As Long, ByVal docY As Long)

    Dim obj As Object
    Dim b As box

    'get the object under the mouse pointer
    obj = fc.ObjectFromPoint(docX, docY, True, False)

    If obj Is Nothing Then

       'clear the status bar message
       statusBar.Panels(1).Text = ""
       Exit Sub
    End If

    'if it is a box ...
    If TypeOf obj Is box Then
       b = obj
       statusBar.Panels(1).Text = b.UserString
    End If

End Sub
//----------------------------------------------------------

In Delphi, 'Nothing' and 'TypeOf' Statement is not converted.



My Malfunction Code is here.
//------------------------------------------------------------
var
  Obj: IDispatch;  //Dim obj As Object
begin
  obj := fc1.ObjectFromPoint(docX, docY, false, false);
//  if obj=nil then begin
//    RzStatusPane2.Caption :='void area';
    end;

//    if (obj is box) then begin
//        Box0 := obj;
//        RzStatusPane1.Caption := Box0.UserString;
//    end;
//   end;
end;
//-------------------------------------------------------------

Pleas tell me the correct conversion code of above it.

Thank in advances.

Thanks of your answer.

I'm not solve the problem.

procedure TForm1.FC1MouseMove(ASender: TObject; docX, docY: Integer);
 var
  Obj: IDispatch;  //Dim obj As Object
begin
  obj := fc1.ObjectFromPoint(docX, docY, false, false);
    if obj=nil then begin
	Label1.Caption :='void area';
    end;

    if (obj as IBOXItem<>nil) then begin
	Label1.Caption :='Box here';
    end;

end;
 

- Error: No Compile Eorror. ^^; but

- Result: There is no change to Label1.

What's wrong with my code?