Delphi. Трюки и эффекты

Реакция на смену активного документа

procedure TFormActiveWord.WordApplicationActiveDocumentChange

(Sender: TObject);

begin

//Подключаемся к текущему документу

WordDocumentNew.ConnectTo( WordApplicationActive.ActiveDocument);

//Контроллер добавляет новую строку в текущий документ

WordDocumentNew.Range.InsertAfter(#13#10+\'Переход к документу\'+#13#10+

WordApplicationActive.ActiveDocument.Get_FullName+\' произведен :\'+ DateTimeToStr(Now));

end;