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

Компонент 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:=... а дальше ? Прошу ногами не пинать :(

---

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

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

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

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

---

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

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



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