TMHTrackBar - OnChange

← →
BaryVetaL © (2006-03-17 12:04) [0]

Кто пожет помочь: как к TMHTrackBar прикрутить событие OnChange?
Спасибо!

← →
ECM © (2006-03-17 12:14) [1]

Оно уже есть! Поставьте в опциях проекта USE_PROP. Пересоберите его и пользуйтесь событием OnScroll.
Попозже я поправлю MHTrackBar так чтобы OnScroll работал и без USE_PROP.

← →
BaryVetaL © (2006-03-17 13:30) [2]

Чего то не шибко получается. На всякий случай, скажу, что я имею ввиду использование в KOL без MCK (если ты имеешь ввиду использование в MCK).

← →
ECM © (2006-03-17 13:44) [3]

Работает - работает ... :)
Я перед тем как отвечать всё проверил... (правда на MCK - но это здесь неважно). Скорее всего у Вас почему то при компиляции KOL.PAS не устанавливается $DEFINE USE_PROP. Проверьте... но можете и без USE_PROP. Только исправьте в KOLMHTrackBar.pas :

function WndProcTrackbarParent(Sender: PControl; var Msg: TMsg; var Rslt: Integer): Boolean; var Trackbar: PMHTrackbar; Bar: TScrollerBar; begin Result := FALSE; if ((Msg.message = WM_HSCROLL) or (Msg.message = WM_VSCROLL)) and (Msg.lParam <> 0) then begin {$IFDEF USE_PROP} Trackbar := Pointer(GetProp(Msg.lParam, ID_SELF)); {$ELSE} Trackbar := Pointer( GetWindowLong( Msg.lParam, GWL_USERDATA ) ); {$ENDIF} if Trackbar <> nil then begin if Assigned(Trackbar.OnScroll) then begin if Msg.message = WM_VSCROLL then Bar := sbVertical else Bar := sbHorizontal; Trackbar.OnScroll(Trackbar, Bar, LoWord(Msg.wParam), HiWord(Msg.wParam)); end; end; end; end;

← →
BaryVetaL © (2006-03-17 14:49) [4]

Нет все равно не работает...

← →
ECM © (2006-03-17 16:00) [5]

Попробуйте тогда вот эту версию (ссылка временная)
http://www.kolnmck.ru/KOLMHTrackBar.zip
Если не заработет - надо смотреть Ваш код...

← →
Vladimir Kladov (2006-03-18 14:07) [6]

Кстати, свой trackbar обновил - тоже была проблема с OnChange с новым способом хранения связки объекта с окном (USE_PROPS), теперь этот символ учтен. KOLCCtrls.zip (KOLTrackbar в Дополнениях)

Понял почему не мог попасть на OnChange, здесь его нет вовсе, есть OnScroll :-)

TMHTrackBar - OnChange Найти похожие ветки