VPF::Как отключить правую кнопку мыши в TEmbeddedWB

serjufa

Дата 30.7.2009, 13:56 (ссылка)

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

Загрузка ...

Новичок

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

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

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

Как отключить правую кнопку мыши в TEmbeddedWB. у меня открывается страничка в окне программы и можно увидеть ссылку, нажав на правую кнопку. а я хочу скрыть от пользователя все пути, перехватив нажатие. есть пример (http://articles.org.ru/cfaq/index.php?qid=488) с использ. модулей IeConst, IEDocHostUIHandler. второй я нашел ч/з 4 часа поисков на китайском сайте. однако, теперь он запрашивает SHDocVw_TLB. где его взять, ума не приложу.

Может, я изобретаю велосипед. Просветите меня. как отключить прав. кнопку мыши?

Crw

Дата 30.7.2009, 17:07 (ссылка)

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

Загрузка ...

Шустрый

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

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

Может повешать хук на правую кнопку мыши..?
Кстати TEmbeddedWB уже имеет имплементацию IDocHostUIHandler.

Это сообщение отредактировал(а) Crw - 30.7.2009, 17:09

Keeper89

Дата 30.7.2009, 17:08 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

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

Цитата(serjufa @ 30.7.2009, 14:56

)

SHDocVw_TLB. где его взять, ума не приложу.

По этому поводу вот ссылочка: http://www.cryer.co.uk/brian/delphi/error_fnfSHDocVw_TLB.htm.

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

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

Crw

Дата 30.7.2009, 17:15 (ссылка)

(голосов:1)

Загрузка ...

Шустрый

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

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

ага, вот:

Код


procedure TForm1.EmbeddedWB1ShowContextMenu(Sender: TCustomEmbeddedWB;
  const dwID: Cardinal; const ppt: PPoint; const CommandTarget: IInterface;
  const Context: IDispatch; var Result: HRESULT);
begin
  Result:=S_OK;
end;

Не ленимся иногда заглядывать в исходники компонентов которые используем smile

Это сообщение отредактировал(а) Crw - 30.7.2009, 17:18

serjufa

Дата 31.7.2009, 07:00 (ссылка)

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

Загрузка ...

Новичок

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

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

спасибо за наводку, сразу не разглядел. теперь нашел - "06 - RightClick_Shortcuts_Demo". очень интересно.

зур рахмат.

PS все работает

Это сообщение отредактировал(а) serjufa - 31.7.2009, 09:10

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