Цитата:
|
Сообщение от YVitaliy
Тогда просто добавь это свойство ему. Или создай аналогичный сласс:
Код:
type
TTrackBar=class(ComCtrls.TTrackBar)
private
public
property OnMouseDown;
property OnMouseUp;
end;
Правда, возможно, процедуру TrackBar1MouseDown придется создавать вручную, и в конструкторе формы прописывать
Код:
TrackBar1.OnMouseDown:=TrackBar1MouseDown;
Или внести соответствующие коррективы в файл .dfm |
Я запутался, типо вот таким макаром можно можно к объектам прибавлять свойства, ну к примеру если в trackbar нету muosedown можно это событие создать и он будет его распознавать? но ведь не достаточно просто написать mousedown, получается что в самой процедуре все равно надо будет писать какие-нибудь условия прежде чем вставлять координаты globalpos и localpos которые были в примере?