Показать сообщение отдельно
Старый 14.11.2013, 12:08   #9  
InTacto is offline
InTacto
Участник
Аватар для InTacto
 
323 / 11 (1) +
Регистрация: 09.08.2005
Может вы не тот экземпляр приложения закрываете.
У меня тоже появились эвенты перенес переменый из локальных в глобальные />/>/>

Код:
Name	DataType	Subtype	Length
xlApp2	Automation	'Microsoft Excel 12.0 Object Library'.Application	
xlWrkbook2	Automation	'Microsoft Excel 12.0 Object Library'.Workbook	
a	Automation	'Microsoft Excel 12.0 Object Library'.Range	


// код кнопки открытия файла
CLEAR(xlApp2);
CREATE(xlApp2,TRUE);
xlApp2.Visible := TRUE;

//xlWrkbook2 := xlApp2.Workbooks.Add;
xlWrkbook2 := xlApp2.Workbooks.Open('Путь до файла');
a := xlApp2.ActiveCell;


//код эвента
xlApp2::WorkbookBeforeClose(Wb : Automation "'Microsoft Excel 12.0 Object Library'.Workbook";VAR Cancel : Boolean)
MESSAGE('1');
Когда закрываю книгу или приложения, то выводится "1"
Пробовал создавать книгу и на эвенте создания выводил название книги - тоже робит.