>> la sorcière est la manière d'arrêter des événements mis le feu par AutoCAD ?
Elle dépend de la façon dont modèle d'événement d'AutoCAD. Je t'ai demandé d'attacher le dossier d'AutoCAD_TLB pour observer comment exactement ACAD définit ses événements.
Par exemple si votre AutoCAD_TLB ressemble à ceci :
TAcadDocumentBeginSave = procédé (ASender : TObject ; nom de fichier de const : WideString) d'objet ;
…
TAcadDocument = classe (TOleServer)
….
propriété OnBeginSave : TAcadDocumentBeginSave a lu FOnBeginSave écrivent FOnBeginSave ;
propriété OnEndSave : TAcadDocumentEndSave a lu FOnEndSave écrivent FOnEndSave ;
propriété OnBeginCommand : TAcadDocumentBeginCommand a lu FOnBeginCommand écrivent FOnBeginCommand ;
propriété OnEndCommand : TAcadDocumentEndCommand a lu FOnEndCommand écrivent FOnEndCommand ;
…
Quand vous pouvez faire n'importe quoi de pareil :
type
TForm1 = classe (TForm)
…
privé
procédé HandlerForAcadDocBeginSave (ASender : TObject ; nom de fichier de const : WideString) ;
…
procédé TForm1.Button1Click (ASender : TObject) ;
variété
Acad : IAcadApplication ;
AcadDocument : TAcadDocument ;
commencer
Acad : = CreateOleObject (« AutoCAD.Application ») comme IAcadApplication ;
Acad.Visible : = rectifier ;
AcadDocument : =TAcadDocument.Create (application) ;
AcadDocument.OnBeginSave : = HandlerForAcadDocBeginSave ;
AcadDocument.ConnectTo (Acad.ActiveDocument) ;
…