Проблема с TOleContainer

[Djonik]

Помогите начинающему программисту! Есть форма, меню, панель, кнопки, OleContainer, в контейнере объект Word Document. При нажатии на кнопку, исчезает меню и панели Worda и теряется фокус ввода. Как этого избежать? Визуально все нормально, а мне надо программно.
Вот код:
GetMem(frmQuest,Sizeof(frmQuest));

// Форма
frmQuest^:=TfrmQuest.CreateNew(nil) ;
frmQuest.Width:=900;
frmQuest.Height:=540;
frmQuest.Position:=poScreenCenter;
frmQuest.OnClose:=frmQuest.frmQuest Close;
frmQuest.OnResize:=frmQuest.OleResi ze;
frmQuest.OnShow:=frmQuest.Oleshow;

// Меню
Menu:=TMainMenu.Create(frmQuest^);
MenuFile:=TMenuItem.Create(Menu);
MenuFile.Caption:='Файл';
Menu.Items.Add(MenuFile);

// Панель
pnQuest:=TPanel.Create(frmQuest^);
pnQuest.Parent:=frmQuest^;
pnQuest.align:=alTop;
pnQuest.Color:=clbtnFace;
pnQuest.Height:=60;

// Кнопка Save
btSave:=TButton.Create(frmQuest^);
btSave.Parent:=frmQuest^;
btSave.Caption:='Save';
btSave.Top:=31;
btsave.Left:=6;

// Кнопка Open
btOpen:=TButton.Create(frmQuest^);
btOpen.Parent:=frmQuest^;
btOpen.Caption:='Open';
btOpen.Top:=31;
btOpen.Left:=100;

//ОЛЕ Контейнер
Ole:=TOleContainer.Create(frmQuest^ );
Ole.Parent:=frmQuest^;
Ole.Top:=pnQuest.Height;
Ole.AutoActivate:=aaGetFocus;
Ole.AllowInPlace:=True;
Ole.AutoVerbMenu:=True;
Ole.SizeMode:=smCenter;
Ole.CreateObject('Word.Document.8', False);

frmQuest.ShowModal;

[mihali4]

А вы вот этот вот значочек "^" отовсюду для начала повыкидывайте. Где это вы такое извращение подглядели?

[Djonik]

Дело не в значке.

[Djonik]

Нашел причину.Кинул вместо TButton TSpeedButton и все нормал.
Есть еще вопрос. Как мне отследить изменения в Word document? (например, нажатие клавиши) .

[mihali4]

Одна тема - один вопрос.
Читаем правила.
Закрыто.