摘要：procedure SendMouseWheel(destHandle: THandle; goUp: Boolean); var message: TWMMouseWheel; delta: SmallInt; begin if goUp then delta := WHEEL_DELTA els 阅读全文