TWebBrowser soll kein Popup Menü zeigen

[Äfan]

Hi,

Wenn der TWebBrowser eine Seite geladen hat und man dort rechte maustaste klickt, geht ja ein Popup Fenster auf. Wie kann ich es machen, dass beim rechten mausklick kein popup kommt ?

MFG

[toms]

Hi,

Schon Gegoogelt?

[SirThornberry]

du könntest in den Seitenquelltexte einfach im Bodytag 'onContextmenu="return false"' hinzufügen. Ansonsten einfach mit einen localen Hook die Maustaste verwerfen.

[Äfan]

@SirThornberry: Kannste mir mal die zeigen wo des hingehört ? Also ich mach da was falsch.

mfg

[toms]

Delphi-Quellcode:

var
  Form1: TForm1;
  HookID: THandle;

implementation

{$R *.DFM}


function MouseProc(nCode: Integer; wParam, lParam: Longint): Longint; stdcall;
var
  szClassName: array[0..255] of Char;
  MausPos: TPoint;
  X, Y: Integer;
const
  ie_name = 'Internet Explorer_Server';
begin
  GetCursorPos(MausPos);
  x := MausPos.x;
  y := MausPos.y;

  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
              begin
                Result := HC_SKIP;
                Form1.popupmenu1.popup(X, Y);
              end
              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, MouseProc, 0, GetCurrentThreadId());
  Webbrowser1.Navigate('http://www.google.com');
end;

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

[Äfan]

Danke, nur Ich will kein eigenes menü, sondern nur das des TWebBrowsers nicht zeigen lassen.

@Sir: Wie meintest du das ? Meinste über das HTML Dokument abschalten ? Wenn ja, wie geht das ?

mfg

[toms]

Zitat:

Zitat von Äfan

Danke, nur Ich will kein eigenes menü, sondern nur das des TWebBrowsers nicht zeigen lassen.

Dann nimm nur diese Zeile raus:

Delphi-Quellcode:

Form1.popupmenu1.popup(X, Y);

*du selber denken koenntest*

[Äfan]

OK Danke !

*ich nix gesehen habe :stupid: *

mfg

[Tom4321]

Ich habe noch ein kleines Problem mit der Umsetzung des PopUps wie im Beispiel oben beschrieben.

Ich würde gerne in den TWebbrowser über ein eigenes PopUpMenu reinkopieren. Aber dabei habe ich gleich mehrere Probleme:

1. Ich will an die aktuelle Stelle des Cursors etwas einfügen, d.H. via Webrowser1.OleObject.document.forms.item(0).elemen ts.item('name').value geht das nicht. Wie kann ich das einfach etwas pasten?!

2. Durch den rechten Klick und das enstehende PopUp wird ja nicht automatisch das darunter liegende Inputfeld im TWebbrowser focusiert wie könnte man das machen?

Jemand eine Ahnung?!?!