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

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"ом.
Так что просто этот товарищ не знает, чего хочет.

---

← →
Mihey ©   (2004-04-30 22:25) [6]

2 Gero:

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

---

← →
Думкин ©   (2004-05-01 09:39) [7]

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

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;

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

---

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

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



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