Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.10.31;
Скачать: CL | DM;

Вниз

Как заблочить правую кнопку мыши в Веб Броузере?   Найти похожие ветки 

 
Danger ©   (2002-09-17 01:21) [0]

Если кто нить знает, то помогите плиз. Есть стандартный компонент ВебБроузер, в него загружается страничка из инета, и вот надобно сделать так что бы при нажатии правой кнопки мыши на ссылке или же на самой страничке происходило определенное событие. Буду очень благодарен за помощь!


 
Alx2 ©   (2002-09-17 08:02) [1]

Решение "в лоб" состоит в использовании хука типа WH_MOUSE.
При возникновении "ненужного" мышиного сообщения адресованного подопытному окну, хучной функции достаточно возвратить ненулевое значение.


 
Song ©   (2002-09-17 09:12) [2]

Есть ещё способ.
Вам необходимо включить интерфейс IDocHostUIHandler. Для этого Вам понадобятся два файла: ieConst.pas и IEDocHostUIHandler.pas. В методе ShowContextMenu интерфейса IDocHostUIHandler, необходимо изменить возвращаемое значение с E_NOTIMPL на S_OK. После этого меню перестанет реагировать на правое нажатие кнопки мыши. Добавьте два модуля, упомянутые выше в секцию Uses и добавьте следующий код:

...

var
Form1: TForm1;
FDocHostUIHandler: TDocHostUIHandler;
...

implementation
...

procedure TForm1.FormCreate(Sender: TObject);
begin
FDocHostUIHandler := TDocHostUIHandler.Create;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
FDocHostUIHandler.Free;
end;

procedure TForm1.WebBrowser1NavigateComplete2(Sender: TObject;
pDisp: IDispatch; var URL: OleVariant);
var
hr: HResult;
CustDoc: ICustomDoc;
begin
hr := WebBrowser1.Document.QueryInterface(ICustomDoc, CustDoc);
if hr = S_OK then
CustDoc.SetUIHandler(FDocHostUIHandler);
end;


 
REA   (2002-09-17 13:08) [3]

Тут на сайте был пример браузера в статьях и там эта проблема решалась проще.


 
Danger ©   (2002-09-17 22:39) [4]

Не подскажешь где их можно достать?



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

Текущий архив: 2002.10.31;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.025 c
1-101257
Squ
2002-10-22 07:26
2002.10.31
Бегущая строка в about box ?


14-101436
АндрюхаВИ
2002-10-09 13:19
2002.10.31
Sos. Просят сделать, незнаю сколько брать! Не игнорируйте, плиз


14-101511
Nostradamus
2002-10-12 18:45
2002.10.31
Как избавится от посетителя???


3-101161
Igoryan
2002-10-11 12:39
2002.10.31
Копирование в буфер из DBGrid


14-101446
Anatoly Podgoretsky
2002-10-09 19:09
2002.10.31
Перепись инструкция