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;
Заранее спасибо!