TrackBar и перехват л.к.м.

← →
Черя (2004-04-29 21:05) [0]

Как мне сделать так, чтобы после установки бегунка в TrackBar в какое-то положение он становился Visible:=False; ?
Тоесть мне наверно надо перехватить на нем нажатие лев. кн. мыши, изменение положения бегунка и момент когда я отпускаю л.к.м. (тоесть устанавливаю в новое положение).

← →
Думкин © (2004-04-30 06:53) [1]

onChange

← →
Черя (2004-04-30 11:00) [2]

onChange срабатывает сразу как только я щелкаю по компоненту, даже не изменяя положение бегунка (чем-то схоже с onEnter).

← →
Gero © (2004-04-30 17:12) [3]

> Черя (30.04.04 11:00)

Правильно.
Так в чем проблема?

← →
Mihey © (2004-04-30 20:22) [4]

2 Gero:

Как ему проследить отпускаение мыши?

← →
Gero © (2004-04-30 20:30) [5]

> Как ему проследить отпускаение мыши?

OnChange.
Он срабатавает и при нажатии мыши, и при отпускании ее, и при перемещении ее над TrackBar"ом.
Так что просто этот товарищ не знает, чего хочет.

2 Gero:

По-моему, вопрос ясен. Как отследить отпускание мыши на TTrackBar, т.е. событие OnMouseUp для этого компонента?

Например, можно так:

TTrackBarNew = class(TTRackBar) procedure MLBUP(var Msg : TMessage);message WM_LBUTTONUP; end; procedure TTrackBarNew.MLBUP(var Msg: TMessage); begin if Position = 5 then Visible := false; inherited end;

Это заготовка - но копать можно сюда.

TrackBar и перехват л.к.м. Найти похожие ветки