WebBrowser

← →
Yonic (2002-10-26 09:17) [0]

Вопрос по сути, наверное не сложный, но я не знаю ответа. Как убрать меню, выплывающее по клику првой мышкой на документе.

← →
SuperVK (2002-10-26 09:58) [1]

Выдержка из какого-то FAQ"а:

Надо реализовать интерфейс IDocHostUIHandler. В нём есть функция:

function ShowContextMenu(const dwID: DWORD; const ppt: PPOINT; const pcmdtReserved: IUnknown; const pdispReserved: IDispatch): HRESULT;

Эту функцию надо переопределить таким образом, чтобы она всегда возвращала S_OK.

← →
Yonic (2002-10-26 15:57) [2]

Не очень-то понятно :( Можно попроще\поподробнее??

← →
kig (2002-10-26 16:55) [3]

По поводу, в частности IDocHostUIHandler, здесь:

http://msdn.microsoft.com/workshop/browser/hosting/wbcustomization.asp

Пример реализации здесь (EmbeddedWB):

http://www.euromind.com/iedelphi/

← →
Yr2 (2002-10-27 19:45) [4]

To Yonic Если речь идет о компоненте TWebBrowser, который ты используешь в своем приложении и он лежит на форме (например, на TForm1), то могу помочь. Если же нужно отменить всплывание меню в "стандартном броузере", то скажу в следующий раз. Итак:
в описании формы нужно добавить процедуру:
private { Private declarations } procedure WMMouseActivate(var Msg: TMessage); message WM_MOUSEACTIVATE;
в теле программы пишем саму процедуру:
procedure TForm1.WMMouseActivate(var Msg: TMessage); begin try inherited; //нажата правая кнопка мыши? if Msg.LParamHi = 516 then Msg.Result:= MA_NOACTIVATEANDEAT; // А здесь можно сделать свои дела... (показать свое меню) except end; end;
у меня это работает.

← →
int64 (2002-10-28 02:47) [5]

Очень глюкавый метод. И ктому же вредный.

WebBrowser Найти похожие ветки