Strg+N in Webbrowser deaktivieren ?

[thomas2009]

Hallo

ich versuche mit diesem Tutorial die Tastenkombination Strg+N in Webbrowser zu deaktivieren:
http://www.swissdelphicenter.com/en/...de.php?id=2360

Es klappt bei mir nicht. Was muss ich noch tun ?

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, OleCtrls, SHDocVw;

type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
procedure ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);
// hier muss ich vielleicht Message senden ?
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

// Put a TApplicationEvents component on your form and assign a OnMessage event handler:

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
  // check if Ctrl-N pressed
  if (GetKeyState(VK_CONTROL) < 0) and (Msg.Message = WM_KEYDOWN) and
    (Msg.wParam = Ord('N')) then
  begin
    Handled := True;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate('http://google.com');
end;

end.

[mkinzler]

Zitat:

// hier muss ich vielleicht Message senden ?

Nein die Methode sollte bei einer Message aufgerufen werden

[API]

Du brauchst die Komponente TApplicationEvents

[toms]

Zudem würde ich es so machen:

Delphi-Quellcode:

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; 
  var Handled: Boolean); 
begin 
  // Strg + n deaktivieren 
  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]

Zitat:

Zitat von mkinzler

Zitat:

// hier muss ich vielleicht Message senden ?

Nein die Methode sollte bei einer Message aufgerufen werden

Und wie sollte die Methode bei einer Message aufgerufen werden?

[mkinzler]

Indem du diese mit dem genannten Event eines TApplicationEvent-Objektes verbindest

[ToFaceTeKilla]

Falls du das nur machst um die Tastenkombination zu ändern und dein Programm nur mittel zum Zweck ist, gibts noch einen anderen weg:
Start > ausführen > cmd
in das Installationsverzeichnis von FF wechseln

Code:

cd "..\..\Programme\Mozilla Firefox\chrome"

(falls du das Standart-Verzeichnis genommen hast) (..\..\ wechselt nur aus dem Benutzerverzeichnis raus, das cmd ja standardmäßig darin startet)

dort dann das Jar-Archiv toolkit.jar extrahieren

Code:

jar xf toolkit.jar

(erfordet installiertes JRE)

und im entstandenen Ordner global/content/ die Datei platformHTMLBindings.xml deinen Wünschen anpassen.

Dann das ganze wieder zusammenpacken

[Bernhard Geyer]

Zitat:

Zitat von ToFaceTeKilla

Falls du das nur machst um die Tastenkombination zu ändern und dein Programm nur mittel zum Zweck ist, gibts noch einen anderen weg:
Start > ausführen > cmd
in das Installationsverzeichnis von FF wechseln

Bringt jedoch wenig wenn er mit WebBrowser TWebbrowser von Delphi meint welche den IE im Hintergrund verwendet

[ToFaceTeKilla]

Hm recht hast du... hab mir eingebildet irgendwo was von FireFox gelesen zu haben :oops:

[thomas2009]

Zitat:

Zitat von mkinzler

Indem du diese mit dem genannten Event eines TApplicationEvent-Objektes verbindest

Das hätte ich gerne wissen wie

[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

[thomas2009]

Zitat:

Zitat von toms

Tipp: setze die Klammern richtig

ich habe folgendes gemacht :
// 1:

Delphi-Quellcode:

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

//2:

Delphi-Quellcode:

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

//3:

Delphi-Quellcode:

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

keine funktioniert

[toms]

Delphi-Quellcode:

if ((Msg.Message = WM_LBUTTONDOWN) or (Msg.Message = WM_LBUTTONUP)) and 
  (GetKeyState(VK_SHIFT) < 0) then 
begin 
  Handled := IsChild(WebBrowser1.Handle, Msg.Hwnd); 
  Caption := 'shift+ click'; 
end;

[thomas2009]

Es funktioniert jetzt. Danke!

Gruß