delphi sendmsessage 发送滚轮滚动消息

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;