Текущий архив: 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.029 c