О, я понял в чём дело - нет объявления TBS_TOOLTIPS в Style TrackBar, надо немного подправить ComCtrls.pas, как я делал
в процедуре TTrackBar.CreateParams (строка 10030) дописал к
Код:
Style := Style or OrientationStyle[FOrientation] or
// Ignore tsAuto if more than MaxAutoTicks in the track bar range.
// tsAuto is is ignored because the TRACKBAR_CLASS will paint,
// as many tick marks as you ask for. Too many an it appears
// the track bar has hung but it just painting very slowly. Since large
// ranges can be accidentally entered in the object inpsector we just
// have the control ignore them instead of hanging.
TickStyles[FMax - FMin > MaxAutoTicks, FTickStyle] or
ATickMarks[FTickMarks] or TBS_FIXEDLENGTH or TBS_ENABLESELRANGE
or TBS_TOOLTIPS;//вот это Странно, переменная есть, а объявы нет, во как раньше мудрили борландовцы
