Rechtsklick im TWebBrowser deaktivieren #2

[smax]

Hallo,

ich habe nun einen neuen Code gefunden um den Rechtsklick zu deaktivieren!

Hier ist er:

http://entwickler-forum.de/webx?13@@.1dd04d31/0

Kann mir jemand sagen wie ich diesen Code einbauen muss?

[Christian Seehase]

Moin smax,

in Deiner Formulardeklaration

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    //...
    procedure AppMessage(var Msg: TMsg; var Handled: Boolean); 
    //...
  end;

z.B. im OnCreate Deines Formulares dann zuweisen

Application.OnMessage := AppMessage; und nicht zu vergessen die Prozedure selber im Implementation Abschnitt unterzubringen.

[Christian Seehase]

Moin smax,

Nachtrag:
Zum einen ist die Prozedure noch nicht vollständig, kann also nicht einfach per Copy&Paste verwendet werden, zum anderen funktioniert es nicht (jedenfalls bei mir).
Das IE Menü erscheint trotzdem.

[smax]

MHh mist! Aber danke für deine Bemühungen!