MS WORD Опции

[Client]

Привет

if OpenDialog1.Execute and (OpenDialog1.FileName <> '') then

   OleContainer1.CreateObjectFromFile(OpenDialog1.FileName, false);

// Если загрузилось что - нибудь, то покажем

   if OleContainer1.State <> osEmpty then OleContainer1.DoVerb(ovShow)

Файл открывается, все нормально. Вопрос: как закрыть "word"?
Или вместо всего этого - как открыть файл в MS Word (в вордовском окне)?
Когда документ открывается, он заполняет полностью "шапку формы" (рис1, рис2). А при нажатии кнопки2 (без обработчика) шапка уходит (рис3)

Добавлено через 5 мин.
хм, скрины наоборот прикрепились
(смотреть в обратном поядке)

Сообщение отредактировано: Client - 7.04.2010 0:00

[volvo]

Закрыть документ чтобы потом убарть OleContainer.

Закрывай:

procedure TForm1.btnClose(Sender: TObject);
begin
  OleContainer1.DestroyObject;
end;

Если потом опять тыкнуть на OleContainer меню не появляется.

Обрати внимание на свойство AutoActivate у Контейнера. Оно показывает, каким образом контейнер активизируется. Если установить его в AsGetFocus, и передавать фокус на OleContainer не мышкотыканьем, а нажатием, скажем, на кнопку:

procedure TForm1.Button2Click(Sender: TObject);
begin
  OleContainer1.SetFocus;
end;

, то все прекрасно появляется.

Мне вообщем надо сделать редактирование документа.

Если тебе надо редактирование, что ж ты открываешь документ через ovShow? Для чего ovOpen тогда?

Поищи на форуме, мы как-то с Айрой много чего с OleContainer-ом делали.

На самом деле, я бы все-таки сделал открытие внешнего приложения Word, вместо OleContainer-а. Не все, что доступно через работу с Word-ом доступно через OLE Automation.

Добавлено через 1 мин.

нашел метод

Не, ну нормально? Чтоб открыть - делаешь CreateObject, а чтоб закрыть - Close? Нет уж, все по-взрослому Создавал объект - теперь разрушай объект !