Скачать: CL | DM;

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]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.012 c