Kontextmenü des TWebbrowser überall...

[horst]

ich habe für den twebbrowser ein eigenes popupmenü:

Delphi-Quellcode:

function MouseProc(nCode: Integer; wParam, lParam: Longint): Longint; stdcall;

var
  szClassName: array[0..255] of Char;
const
  ie_name = 'Internet Explorer_Server';
begin
  case nCode < 0 of
    True:
      Result := CallNextHookEx(HookID, nCode, wParam, lParam)
  else
    case wParam of
      WM_RBUTTONDOWN,
        WM_RBUTTONUP:
        begin
          GetClassName(PMOUSEHOOKSTRUCT(lParam)^.HWND, szClassName, SizeOf(szClassName));
          if lstrcmp(@szClassName[0], @ie_name[1]) = 0 then
            Result := HC_SKIP
          else
            Result := CallNextHookEx(HookID, nCode, wParam, lParam);
        end
    else
      Result := CallNextHookEx(HookID, nCode, wParam, lParam);
    end;
  end;
end;

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

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

mein problem ist, dass das kontextmenü über allen komponenten zu sehen ist, des sollte aber nur für den webbrowser gelten.
please help...

grüße horst

[horst]

hat wirklich niemand eine ahnung oder einen klitzekleinen hinweis??
wollte das thema nochmal ganz oben haben, um evt doch noch eine antwort zu bekommen

viele grüße
horst

[scp]

Wo hast du da das Popupmenü eingebaut? Dieser Code dient eigentlich nur zum verhindern des Popupmenüs im TWebbrowser.
Dein eigenes Menü muss ja dann irgendwo aufgerufen werden, z.B. so:

Delphi-Quellcode:

var
  P: TPoint;
//.......
          P := PMOUSEHOOKSTRUCT(lParam)^.pt;
          GetClassName(PMOUSEHOOKSTRUCT(lParam)^.HWND, szClassName, SizeOf(szClassName));
          if lstrcmp(@szClassName[0], @ie_name[1]) = 0 then
          begin
            Result := HC_SKIP;
            Form1.WebBrowser1.PopupMenu.Popup(P.X, P.Y);
          end
          else
            Result := CallNextHookEx(HookID, nCode, wParam, lParam);
//.......

[horst]

hallo...
stimmt du hast recht...
aufrufen tue ich das so.... über einen button

Delphi-Quellcode:

HookID := SetWindowsHookEx(WH_MOUSE, MouseProc, 0, GetCurrentThreadId());

und

function MouseProc(nCode: Integer; wParam, lParam: Longint): Longint; stdcall;
var
  szClassName: array[0..255] of Char;
const
  ie_name = 'Internet Explorer_Server';
begin
  case nCode < 0 of
    True:
      Result := CallNextHookEx(HookIDb, nCode, wParam, lParam)
  else
    case wParam of
      WM_RBUTTONDOWN,
        WM_RBUTTONUP:
        begin
          GetClassName(PMOUSEHOOKSTRUCT(lParam)^.HWND, szClassName, SizeOf(szClassName));
          if lstrcmp(@szClassName[0], @ie_name[1]) = 0 then
            Result := HC_SKIP;
         // Form1.PopUpMenu1.PopUp(Mouse.CursorPos.X, Mouse.CursorPos.Y);
          Form1.WebBrowser1.PopupMenu.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y);
        end
    else
      Result := CallNextHookEx(HookIDb, nCode, wParam, lParam);
    end;

  end;

end;

habe die zeile nun eingefügt aber es funktioniert immer noch nicht.
Form1.WebBrowser1.PopupMenu.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y); gruß
horst

[horst]

danke...
ich kriege damit zwar aich das popupmenü zu sehen, leider aber immer noch über allen anderen komponenten auf meiner form.

Code:

function MouseProc(nCode: Integer; wParam, lParam: Longint): Longint; stdcall;
var
  P: TPoint;
  szClassName: array[0..255] of Char;
const
  ie_name = 'Internet Explorer_Server';
begin
  case wParam of
    WM_RBUTTONDOWN,
      WM_RBUTTONUP:
      begin
        P := PMOUSEHOOKSTRUCT(lParam)^.pt;
        GetClassName(PMOUSEHOOKSTRUCT(lParam)^.HWND, szClassName, SizeOf(szClassName));
        if lstrcmp(@szClassName[0], @ie_name[1]) = 0 then
          Result := HC_SKIP;
        Form1.WebBrowser1.PopupMenu.Popup(P.X, P.Y);
      end
  else
    Result := CallNextHookEx(HookIDb, nCode, wParam, lParam);
  end;
end;

[horst]

es klappt...musste das Result := HC_SKIP; rausnehmen

[scp]

Der Unrerschied zwischen meinem und deinem Code ist:
Du musst ein begin nach der If-Zeile einfügen und ein end; nach der Popup-Zeile.
Dann kannst du auch sicherheitshalber das
Result := HC_SKIP; drin lassen, also so:

Delphi-Quellcode:

        if lstrcmp(@szClassName[0], @ie_name[1]) = 0 then
        begin
          Result := HC_SKIP;
          Form1.WebBrowser1.PopupMenu.Popup(P.X, P.Y); 
        end;

[horst]

danke...das geht, ich habe ehrlich gesagt nicht verstanden wofür diese
Result := HC_SKIP; gebraucht wird.
du bestimmt, magst du es mir erklären?

gruß
horst

[scp]

Das sorgt dafür, dass das Original-Menü des TWebBrowser nicht aufgerufen wird, also die WM_BUTTONx Nachrichten werden nicht an den TWebBrowser weitergegeben, so als hätte das Ereignis nie stattgefunden.
Die angesprochene Zeile ist aber eigentlich nur dazu da, der MouseProc einen ordentlichen Rückgabewert in das result zu übergeben, normalerweise wird das ja von CallNextHookEx() erledigt.

[horst]

vielen dank
so ungefähr habe ich das verstanden...