Strg+N in Webbrowser deaktivieren ?

[mkinzler]

Z.B. im OI

[thomas2009]

Aber meine Version D7 hat leider den Event OnMessage nicht
Ich meinte wie man den Event programmiert

[Die Muhkuh]

Auch Delphi 7 hat das Event OnMessage, wenn du ein TApplicationEvent auf die Form machst...

[thomas2009]

So sieht es bei mir aus D7 pro

[mkinzler]

Hilfe mein Fahrrad kann nicht Fliegen :stupid:
TForm != TApplicationEvents
Wenn man dir sagt lege eine TApplicationEvent-Komponente auf die Form und weise deren Eventhandler die Methode zu, dann meinen wir das auch!!!

[toms]

Wenn du es ohne TApplicationEvents Komponente machen möchtest:

In der private Sektion

Delphi-Quellcode:

private
    procedure OnAppMessge(var Msg: tagMSG; var Handled: Boolean);

im OnCreate:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnMessage := OnAppMessge;
end;

und dann:

Delphi-Quellcode:

procedure TForm1.OnAppMessge(var Msg: tagMSG; var Handled: Boolean);
begin
 if (Msg.wParam = Ord('N')) and (GetKeyState(VK_CONTROL) < 0) and
   (Msg.Message = WM_KEYDOWN) then
    begin
      Handled := IsChild(Webbrowser1.Handle, Msg.hwnd);
    end;
end;

[thomas2009]

Danke @Toms
Nun ist damit Strg+N deaktiviert und damit kann man keine neue Seite in ein neues Fenster öffnen

Es gibt ein kleine Lücke und zwar mit der Tastenkombination Shift+Klick auf einen Link in Webbrowser wird auch (leider) die Seite in ein neues Fenster geöffnet

Wie lautet der Code, der Shift+Click deaktiviert ?

[toms]

Zitat:

Zitat von thomas2009

Wie lautet der Code der Shift+Click deaktiviert ?

Delphi-Quellcode:

 Handled := IsChild(WebBrowser1.Handle, Msg.Hwnd) and
  ((Msg.Message = WM_RBUTTONDOWN) or (Msg.Message = WM_RBUTTONUP) and
  (GetKeyState(VK_SHIFT) < 0));

[thomas2009]

Es stimmt was nicht um Shift + Click zu deaktivieren
Es wird trotzdem ein neues Fenster erstellt :

Delphi-Quellcode:

procedure TForm1.OnAppMessge(var Msg: tagMSG; var Handled: Boolean);
begin

if ((Msg.Message = WM_RBUTTONDOWN) or (Msg.Message = WM_RBUTTONUP) and
  (GetKeyState(VK_SHIFT) < 0)) then begin
  Handled := IsChild(WebBrowser1.Handle, Msg.Hwnd);
 Caption:='shift pressed ;)';
  end;
end;

aber wenn ich Shift allein deaktiviere dann funktioniert :

Delphi-Quellcode:

if  (GetKeyState(VK_SHIFT) < 0)) then begin
  Handled := IsChild(WebBrowser1.Handle, Msg.Hwnd);
 Caption:='shift pressed ;)';
  end;
end;

[toms]

Tipp: setze die Klammern richtig