发送鼠标滚轮消息

Posted onlyou13

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了发送鼠标滚轮消息相关的知识,希望对你有一定的参考价值。

procedure SendMouseWheel(destHandle: THandle; goUp: Boolean);
var
  message: TWMMouseWheel;
  delta: SmallInt;
begin
  if goUp then
    delta := WHEEL_DELTA
  else delta := -WHEEL_DELTA;

  message.Msg := WM_MOUSEWHEEL;
  message.Keys := 0;
  message.XPos := 0;
  message.YPos := 0;
  message.Result := -1;
  message.WheelDelta := delta;
  SendMessage(destHandle, WM_MOUSEWHEEL, TMessage(message).WParam, TMessage(message).LParam);
end;

procedure TForm2.BitBtn1Click(Sender: TObject);
begin
  SendMouseWheel(Memo1.Handle, True);
end;

procedure TForm2.BitBtn2Click(Sender: TObject);
begin
  SendMouseWheel(Memo1.Handle, False);
end;

 

以上是关于发送鼠标滚轮消息的主要内容,如果未能解决你的问题,请参考以下文章