Компонент TrackBar и событие OnMouseUp...

← →
МикроДИП (2006-06-03 08:03) [0]

Доброе время суток ! Знаю что этот вопрос проскакивал здесь неоднократно, но я что-то не нашёл вразумительного для себя ответа. В компоненте TrackBar нет события OnMouseUp. Сейчас я нашёл для себя решение, как предложил некто CyberWolf, просто заново написан компонент, где в описании класса описано published OnMouseUp и т.д. Но я вот хотел бы узнать, может существует какое ещё решение, чтобы подцепить к родному компоненту TrackBar (а не к вновь созданному) событие OnMouseUp... И ещё вопрос: ведь TrackBar создан от TControl... Но почему он не имеет этого события ? Ведь в TControl оно есть... Извиняюсь если вопросы делитантские. Заранее благодарю !

← →
Юрий Зотов © (2006-06-03 10:14) [1]

Ничего никуда цеплять не надо, стандартный TrackBar и без цепляния уже имеет унаследованное событие OnMouseMove, просто он его не публикует. Переносим объявление в секцию published - и всех дел. Как и "предложил некто CyberWolf". Только без всяких "и т.д." - там не нужно писать ни одной строчки кода, нужно просто объявить свойство (причем даже без всяких read-write):
type TMyTrackBar = class(TTrackBar) published property OnMouseMove; end;
Если назначать обработчик события только в run-time, то можно обойтись и без этого. Достаточно в любом месте модуля объявить
type TMyTrackBar = class(TTrackBar);
и тогда в любом месте ЭТОГО же модуля НИЖЕ этого объявления секция protected становится доступна через приведение типа:
TMyTrackBar(TrackBar1).OnMouseMove := ...;

← →
МикроДИП (2006-06-03 14:27) [2]

Юрий, спасибо что откликнулись. Я в Дельфи не силён... Подскажите пожалуйста как в run-time событию OnMouseUp присвоить обрабатываемую процедуру. Вы написали TMyTrackBar(TrackBar1).OnMouseUp:=... а дальше ? Прошу ногами не пинать :(

> МикроДИП (03.06.06 14:27) [2]
> как в run-time событию OnMouseUp присвоить обрабатываемую процедуру.

Как обычно. Все сказано тут:
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=342

Но к разработке компонентов это не имеет никакого отношения, поэтому обязан ветку закрыть.

Компонент TrackBar и событие OnMouseUp... Найти похожие ветки