Событие OnMouseUp у TTrackBar

[Вячеслав]

Господа, проблемы с сабжем. Не работает и все тут. Может я туплю и в интернетах описаны способы регистрации события у трекбара, но у меня пока не получается. Интересует отлов отпускания мыши у компонента, созданного в Design-Time.

[xenon54]

У трекбара есть свойство "Thumb" это как раз та пимпочка на трекбаре. Нужно установить обработчик события на ней, т.е. Trackbar1.Thumb.OnMouseUp.

 

 

P.S.: Вот еще можете эту темку глянуть, думаю будет полезным. Кстати в XE7 свойства Thumb небыло, оно появилось в XE8.

Изменено 27 июня, 2015 пользователем xenon54

[GASCHE]

P.S.: Вот еще можете эту темку глянуть, думаю будет полезным.

Какую?

 

Кстати в XE7 свойства Thumb небыло, оно появилось в XE8.

А как быть в XE7?

[xenon54]

Cсылку вставил, потом убрал случайно...  Вот.

Изменено 27 июня, 2015 пользователем xenon54

[Вячеслав]

Поддерживаю вопрос о XE7. Восьмую версию устанавливать пока нет никакой возможности, да и желания как-то нет.

[GASCHE]

Поддерживаю вопрос о XE7.

Пример по ссылке как раз для XE7, там чуть подправлен файл FMX.StdCtrls.pas.

Изменено 28 июня, 2015 пользователем GASCHE

[Вячеслав]

В примере явным образом об этом не сказано, это один из вариантов. Может быть ув. xenon54 создал класс-наследник, свой компонент, реализовал какой-либо хак для доступа к закрытому полю абстрактного класса-предка. Просто я не очень люблю ковырять исходники, сразу получаешь привязку к конкретной машине либо приходится таскать исправленный модуль с собой.

[xenon54]

Для XE7 можно сделать так: 

TrackBar1.StylesData['hThumb.OnMouseUp'] := TValue.From<TMouseEvent>(form1.TrackBar1ThumbMouseUp);

И не нужно таскать библиотеки с собой.

Изменено 28 июня, 2015 пользователем xenon54

[Вячеслав]

Отличное решение, спасибо! Только вот один момент смущает: событие срабатывает лишь в тех случаях, когда на трекбаре происходит клик мышью. А если я нажал на каретку, потащил ее в сторону и потом отпустил (как раз MouseUp), то событие не обрабатывается.

[Вячеслав]

Все, вопрос снят. В последнем случае спасает событие onClick, т.к. оно и вызывается при отпускании мыши.

[GASCHE]

Вячеслав, можно поподробней, а то у меня аналогичная ситуация с TscrollBar.

PS

О, с TTrackBar получилось, а вот с TscrollBar не получается

 

xenon54, а подобного решения для  TscrollBar нет?

Изменено 1 июля, 2015 пользователем GASCHE