Deactivation de Ctrl + N dans Webbrowser ?

Question

Salut
je voudrais utiliser cette Fonction de Delphiswiss pour deactiver Ctrl+N in Webbrowser1 :
http://www.swissdelphicenter.com/en/showcode.php?id=2360

Et voila mon Code : (
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);
{ Private declarations }
public
{ Public declarations }
end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
// deactivate ctrl + n
if(Msg.wParam = Ord('N'))and(GetKeyState(VK_CONTROL) < 0)and
(Msg.Message = WM_KEYDOWN)then
begin
if IsChild(Webbrowser1.Handle, Msg.hwnd)then
        Handled := True; 
end; 
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate('http://google.de');
end;
 
end.

programiest · Answer

Originale : http://www.codeidea.com/tips/

// Put a TApplicationEvents component on your form and assign a OnMessage event handler:

procedure TfrmMyBrowser.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;

Deactivation de Ctrl + N dans Webbrowser ?

1 réponse

Votre réponse

Discussions similaires