关于鼠标滚轮事件

[iqyely]

procedure TForm1.FormCreate(Sender: TObject);
begin
  WebBrowser1.Navigate('http://www.baidu.com');
end;

procedure TForm1.FormMouseWheelDown(Sender: TObject; Shift: TShiftState; MousePos: TPoint;
  var Handled: Boolean);
begin
  OutputDebugString('aaa');
  if ssCtrl in Shift then 
    OutputDebugString('bbb');
end;

procedure TForm1.FormMouseWheelUp(Sender: TObject; Shift: TShiftState; MousePos: TPoint;
  var Handled: Boolean);
begin
  OutputDebugString('ccc');
  if ssCtrl in Shift then 
    OutputDebugString('ddd');
end;

如代码所示，网页加载完后，当滚动滑轮时输出了aaa，但在按住ctrl键却没有输出bbb，请看看这种情况应该怎么解决，谢谢。

[bdmh]

你看看按照ctrl建有没有进入到FormMouseWheelDown中呢

[风之谷]

跟踪下看看 代码应该没问题

[风之谷]

我这边正常

[fall513]

你猜 ctrl的消息跟鼠标滚轮的消息与上是什么

[iqyely]

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    procedure FormMouseWheelUp(Sender: TObject; Shift: TShiftState;
      MousePos: TPoint; var Handled: Boolean);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  WebBrowser1.Align := alClient;
  WebBrowser1.Navigate('www.baidu.com');
end;

procedure TForm1.FormMouseWheelUp(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
  if ssCtrl in Shift then
  begin
    OutputDebugString('bbb');
  end;
end;

end.

把这个重新抽出来，非得是鼠标点击webbrowser以外的部分才能响应事件

[sharebei]

把
if ssCtrl in Shift then
替换为
if GetAsyncKeyState( VK_CONTROL )=-32767 then

[无条件为你]

把
if ssCtrl in Shift then
替换为
if GetAsyncKeyState( VK_CONTROL) <0 then
即可。

不要改成=-32767，因为小于零就表示按下。等于0表示从没按过，或按过偶数次。等于1表示按过奇数次。

[kye_jufei]

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    procedure FormMouseWheelUp(Sender: TObject; Shift: TShiftState;
      MousePos: TPoint; var Handled: Boolean);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  WebBrowser1.Align := alClient;
  WebBrowser1.Navigate('www.baidu.com');
end;

procedure TForm1.FormMouseWheelUp(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
  if GetAsyncKeyState(VK_CONTROL) <0 then
  begin
    OutputDebugString('bbb');
  end;
end;

end.