Скачать: CL | DM;

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 и т.д.?

---

← →
Тохус ©   (2003-09-13 10:33) [5]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.014 c