Форум: "Основная";
Текущий архив: 2004.05.16;
Скачать: [xml.tar.bz2];
Вниз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 вся ветка
Форум: "Основная";
Текущий архив: 2004.05.16;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.032 c