TrackBar?

← →
Юрий Ж. (2003-09-12 22:23) [0]

Как определить что значение TrackBar"а (Position) было изменено путем перетаскивания мышкой, а не присвоением например:
TrackBar1.Porition:=25; ????
Плиз ХЕЛП!

← →
Lexa © (2003-09-12 22:37) [1]

Чтобы видеть значение TrackBar1.position в любой момент на форме создадим метку и создадим процедуру у TrackBar1 в которой присвоем значение TrackBar1.Porition метки вот так: procedure TForm1.TrackBar1.Porition:=25; Change(Sender: TObject);
begin
Label1.Caption:=IntToStr(TrackBar1.Position);
end;

← →
Sam Stone © (2003-09-12 23:09) [2]

2 Юрий Ж.
Лови мышку через, например, событие OnMouseUp, т.е., если оно произошло, то юзверь трогал трэкбар мышой

← →
mrcat © (2003-09-12 23:32) [3]

Юрий Ж. (12.09.03 22:23)

А смысл какой ? Нельзя по точнее определить задачу ?

← →
Юрий Ж. (2003-09-13 09:05) [4]

2 Sam Stone
А как ловить мышь, там нет ни MouseMove, ни MouseDown и т.д.?

2 Юрий Ж.
Для того, чтобы передвинуть трекбар мышкой нужно обязательно нажать на ней клавишу. Соответственно, генерирунтся событие onMouseDown. Создаем для этого события флаг, и как только оно происходит, присваиваем ему значение true. А когда происходит событие onMouseUp возвращаем флагу false. Правда остается маленькая вероятность, что юзер нажал на кнопку мыши в другом месте, а значение трекбара поменялось программно. Это тоже можно отследить, так как упомянутые события возвращают координаты мыши на форме.

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