>> ведьма будет дорогой перехватить случаи ые AutoCAD?
Оно быть в зависимости от как модель случая AutoCAD. Я спросил, что вы прикрепили архив AutoCAD_TLB для того чтобы наблюдать как точно ACAD определяет свои случаи.
Например если ваше AutoCAD_TLB смотрит как это:, то
TAcadDocumentBeginSave = процедура (ASender: TObject; FileName const: WideString) предмета;
…
TAcadDocument = тип (TOleServer)
….
свойство OnBeginSave: TAcadDocumentBeginSave прочитало FOnBeginSave пишет FOnBeginSave;
свойство OnEndSave: TAcadDocumentEndSave прочитало FOnEndSave пишет FOnEndSave;
свойство OnBeginCommand: TAcadDocumentBeginCommand прочитало FOnBeginCommand пишет FOnBeginCommand;
свойство OnEndCommand: TAcadDocumentEndCommand прочитало FOnEndCommand пишет FOnEndCommand;
…
Когда вы можете сделать что-нибудь подобное:
тип
TForm1 = тип (TForm)
…
приватно
процедура HandlerForAcadDocBeginSave (ASender: TObject; FileName const: WideString);
…
процедура TForm1.Button1Click (ASender: TObject);
var
Acad: IAcadApplication;
AcadDocument: TAcadDocument;
начните
Acad: = CreateOleObject («AutoCAD.Application») как IAcadApplication;
Acad.Visible: = true;
AcadDocument: =TAcadDocument.Create (применение);
AcadDocument.OnBeginSave: = HandlerForAcadDocBeginSave;
AcadDocument.ConnectTo (Acad.ActiveDocument);
…