Показать сообщение отдельно
  #1  
Старый 12.03.2011, 13:42
Himikat Himikat вне форума
Прохожий
 
Регистрация: 28.12.2010
Сообщения: 4
Репутация: 10
По умолчанию Что за свойство?

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;

Заранее спасибо!
Ответить с цитированием