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

Вниз

TWebBrowser и правая кнопка мыши   Найти похожие ветки 

 
ins ©   (2007-07-27 20:20) [0]

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


 
WASM   (2007-07-27 20:48) [1]

Я делаю так

var
 HookID: THandle;

procedure TForm1.FormCreate(Sender: TObject);
begin
 HookID:= SetWindowsHookEx(WH_MOUSE, MouseProc, 0, GetCurrentThreadId());
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
if HookID <> 0 then
   UnHookWindowsHookEx(HookID);
end;

function MouseProc(nCode: Integer; wParam, lParam: Longint): Longint; stdcall;
var
 szClassName: array[0..255] of Char;
begin
if nCode < 0 then
  Result:= CallNextHookEx(HookID, nCode, wParam, lParam)
else
   case wParam of
      WM_RBUTTONUP:
       begin
         GetClassName(PMOUSEHOOKSTRUCT(lParam)^.HWND, szClassName, SizeOf(szClassName));
         if szClassName = "Internet Explorer_Server" then
         begin
           Result:= HC_SKIP;
           Form1.PopupMenu1.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y + 2);
         end else
           Result:= CallNextHookEx(HookID, nCode, wParam, lParam);
       end
   else
     Result:= CallNextHookEx(HookID, nCode, wParam, lParam);
   end;
end;


 
ins ©   (2007-07-27 21:51) [2]

Спасибо. Помогло.


 
WASM   (2007-08-01 19:51) [3]

Кидаешь на форму  ApplicationEvents

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
 var Handled: Boolean);
begin
 if   (Msg.Message = WM_RBUTTONUP) then
 begin
   if IsChild(WebBrowser1.Handle, Msg.hwnd) then
   begin
     PopupMenu1Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y + 2);
     Handled := True;
   end;
 end;
end;


 
Инс ©   (2007-08-01 20:34) [4]

Ааа, вот из-за кого я не смог зарегистрироваться под привычным ником ;)



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

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

Наверх




Память: 0.47 MB
Время: 0.016 c
2-1189972976
Lamer666
2007-09-17 00:02
2007.10.14
Проблема при переборе значений в ADOQuery


2-1190310105
Виктор007
2007-09-20 21:41
2007.10.14
Как правильно вызывать INT 3


2-1189751911
nick2000
2007-09-14 10:38
2007.10.14
не работает запрос через Clientdataset


1-1185839798
Dr. Andrew
2007-07-31 03:56
2007.10.14
Как обрисовать выделенный регион штриховой (пунктирной) линией?


1-1186047147
hgd
2007-08-02 13:32
2007.10.14
WebBrowser и прокси