![]() |
|
#1
|
|||
|
|||
![]() Msg.WParam
Подскажите пожалуйста что это за свойство и откуда берутся для него значения или от чего они зависят? Вот процедура на прокрутку scrollbox'a, в которой есть это свойство, хотелось бы узнать про него побольше. Код:
procedure TForm1.WMMOUSEWHEEL(var Msg: TMessage); var zDelta: Integer; begin inherited; if Msg.WParam < 0 then zDelta := -50 else zDelta := 50; with ScrollBox1 do begin if ((HorzScrollBar.Position = 0) and (zDelta > 0)) or ((HorzScrollBar.Position = HorzScrollBar.Range - ClientWidth) and (zDelta < 0)) then Exit; ScrollBy(zDelta, 0); HorzScrollBar.Position := HorzScrollBar.Position - zDelta; end; end; Заранее спасибо! |