Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Перехватить нажатие клавиши мышки на webbrowser

Автор: Elfebet 6.10.2006, 13:50

как мне перехватить нажатие клавиши левой кнопки мыши на вебраузере?

Автор: volvo877 6.10.2006, 14:09

Код

type
  TWebBrowser = class(ShDocVw.TWebBrowser)
    procedure WMMouseActivate(var Msg: TMessage); message WM_MOUSEACTIVATE;
  end;

  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    ...
  end;

procedure TWebBrowser.WMMouseActivate(var Msg: TMessage);
begin
  try
    inherited;
    if Msg.LParamHi = 513 then begin // 516 для правой кнопки
      showmessage('left mouse button pressed');
      Msg.Result:= MA_NOACTIVATEANDEAT;
    end;
    
  except
    // ...
  end;
end;

Такой вариант подойдет?