Колесо мыши и TrackBar

[D!zel]

Привет всем!

Такой вопрос: как можно управлять позицией определенного TrackBar-а колесом мыши? Главное при этом - нужно игнорировать фокус других контролов.

[Sibedir]

Обрабатывай события OnMouseWheel, OnMouseWheelDown и OnMouseWheelUp для самой формы.
Но из-за глюков с этими MouseWheel лучше так

  TForm1 = class(TForm)
    ...
  private
    Procedure AppOnMessage(Var Msg: TMsg; Var Handled: BooLean);
    ...
  end;

...

implementation

...

const
  MouseWheelStep = 1;

procedure TForm1.AppOnMessage (var Msg: TMsg; var Handled: BooLean);
begin
  case Msg.Message of
    WM_MOUSEWHEEL: begin
      if (HiWord (Msg.wParam) > 32512) then
        TrackBar1.Position := TrackBar1.Position + MouseWheelStep
      else
        TrackBar1.Position := TrackBar1.Position - MouseWheelStep;
      Msg.message := WM_NULL;
    end;
  end;
End;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnMessage := AppOnMessage;
end;

...

Источник: http://www.programmersforum.ru/showthread.php?t=60952

[D!zel]

Sibedir, большое спасибо! + в репу