колесо и TrackBar

← →
robt (2007-06-26 13:16) [0]

по умолчанию горизонтальный TrackBar реагирует на колесо
мыши задом на перед: вверх-влево , вниз-вправо
хотя логично делать наоборот.
а нужно "правильно" с заданным шагом
если использовать OnMouseWell то происходит двойное изменение
позиции сначала "системный задом-наперед" а потом OnMouseWell

как не дать ему обрабатывать колесо в обход OnMouseWell

← →
Vladimir Kladov (2007-06-26 16:10) [1]

Может, проще ему логическое направление попробовать поменять. Сейчас погляжу, что можно поделать.

← →
Vladimir Kladov (2007-06-26 17:17) [2]

Посмотрел :)

Вертится как раз туда, куда надо. Попробуйте опцию trbVertical включить:
колесо от себя - влево/вверх, к себе - вправо/вниз. Очень даже логично.

Если очень хочется наоборот, вот код:

procedure TForm1.TrackBar1MouseWheel(Sender: PControl; var Mouse: TMouseEventData); begin if Integer( Mouse.Shift ) < 0 then TrackBar1.Position := TrackBar1.Position - 1 else TrackBar1.Position := TrackBar1.Position + 1; Mouse.StopHandling := TRUE; end;

← →
Robt (2007-06-26 19:23) [3]

ЫЫЫ :) Handling...

чота я туплю :(

спасиба большое !

колесо и TrackBar Найти похожие ветки