VPF::Открыть файл Word - Форум программистов

mimo

Дата 16.11.2012, 20:12 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 8.5.2011

Репутация: нет
Всего: нет

Здравствуйте. Необходимо открыть файл Word на вкладке TTabSheet.

Код


begin
 tab := TTabSheet.Create(PageControl1);
  tab.PageControl := PageControl1;
  tab.Visible := true;
  PageControl1.ActivePage := tab;
  tab.Caption:=TYPE1+' '+NUMBERS1;
  OleContainer1:= TOleContainer.Create(nil);
//  OleContainer1.Parent := Panel2.Parent;
 TOleControl(OleContainer1).Parent := tab.Parent;
//  OleContainer1.Align:= alClient;//alClient   alBottom  alCustom
  OleContainer1.Visible := True;
  OleContainer1.DoVerb(ovOpen);
  OleContainer1.CreateObject('Word.Application',False);
  PageControl1.ActivePage := TTabSheet(OleContainer1.Parent);
  OleContainer1.CreateObjectFromFile(DirWindows+'\' + AName,false);
  ev := 2;
  OleContainer1.OleObject.Protect(ev);
  end

Файл открывается но не там где надо (. Он открывает прямо на форме в верхнем правом углу.
Создаю просто на форме Panel2: TPanel; Пытаюсь открыть там,
но и там не могу открыть. файл все равно открывается в правом верхнем углу на форме. Подскажите, что не так?

Illusion Dolphin

Дата 16.11.2012, 22:24 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1198
Регистрация: 3.5.2003

Репутация: 36
Всего: 63

Код



procedure TForm3.FormCreate(Sender: TObject);
var
  tab: TTabSheet;
  OleContainer1: TOleContainer;
begin
  tab := TTabSheet.Create(PageControl1);
  tab.Parent := PageControl1;
  tab.PageControl := PageControl1;
  tab.Visible := true;
  PageControl1.ActivePage := tab;
  tab.Caption:='caption';
  OleContainer1:= TOleContainer.Create(Self);
  OleContainer1.Align := alClient;
  OleContainer1.Parent := tab;
  OleContainer1.Visible := True;
  OleContainer1.CreateObject('Word.Application',False);
  PageControl1.ActivePageIndex :=0;
  OleContainer1.CreateObjectFromFile('C:\Users\miaur.HOME.000\Desktop\Рецепты МВ.docx',false);
end;

На табе открыло.

--------------------

В мире всего две бесконечности: вселенная и человеческая глупость... На счёт вселенной я не уверен.
Шифрование и организация фотографий - Photo Database 4.5

mimo

Дата 22.11.2012, 17:45 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 8.5.2011

Репутация: нет
Всего: нет

спасибо. помогло

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »