Hallo,
Ich versuche das DWF-viewer 7
ActiveX von autodesk in delphi zu benutzen.
Ich bekomme das
ActiveX importiert und es läuft soweit in der Testanwendung.
Ich habe aber keine Erfahrung mit der
COM automation,
daher weiss ich nicht wie ich die events der ActivX nutzen kann:
Zum Beispiel möchte ich den Object-Namen eines Object anzeigen:
Delphi-Quellcode:
procedure TForm1.CExpressViewerControl1SelectObject(ASender: TObject; const pIAdPageObjectNode, pHandled: IDispatch);
begin
Label1.Caption := ????;
end;
Die autodesk Dokumentation hat leider nur ein VB6 Beispiel:
Delphi-Quellcode:
Private Sub CExpressViewerControl1_OnSelectObject(ByVal pIAdPageObjectNode As Object, ByVal pHandled As Object)
Dim strResult As String
Dim objPageObjectNode As EPlotRenderer.IAdPageObjectNode
Dim tHandled As AdCommon.CAdToggle
'First parameter : piAdPageObjectNode
Set objPageObjectNode = pIAdPageObjectNode
strResult = "Object node name is " + objPageObjectNode.Name
lstLog.AddItem (strResult)
'Second parameter : pHandled
Set tHandled = pHandled
tHandled.State = True
strResult = "Selected object shouldn't be highlighted (in yellow)"
lstLog.AddItem (strResult)
End Sub
Hat jemand einen Tip wie das in delphi gemacht wird?