Главная страница
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.028 c
11-1173682470
vampir_infernal
2007-03-12 09:54
2007.10.14
ThreadTerminate


15-1189541777
Nous Mellon_
2007-09-12 00:16
2007.10.14
php + ftp


2-1189697851
Ezorcist
2007-09-13 19:37
2007.10.14
Проверить является ли строка числом?


2-1190207865
AigizK
2007-09-19 17:17
2007.10.14
Как подключить файл


15-1189725749
delphiForever
2007-09-14 03:22
2007.10.14
и все таки я ее нашел...