Главная страница
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.024 c
11-1173541324
Dmitriy___
2007-03-10 18:42
2007.10.14
kolcryptolib: ошибка при установке


3-1181115486
Strang
2007-06-06 11:38
2007.10.14
Размерность полей


2-1189502518
em240
2007-09-11 13:21
2007.10.14
Delphi+MSMQ


2-1189655958
SQL +
2007-09-13 07:59
2007.10.14
Коннект к БД Interbase 7


3-1181367762
Dmitry_177
2007-06-09 09:42
2007.10.14
какую лучше использовать базу для локального использования?