[angvelem]

Для того чтобы при таскании ползунка TrackBar-а показывался хинт, нужно установить дополнительный флаг стиля окна - TBS_TOOLTIPS.
В Дельфи 2009 это уже реализовано, а в 7-ке ещё не было. Пытаюсь выставить этот флаг, но хинт не появляется, сравнивал исходные коды реализации TrackBar-ов, существенной разницы не нашёл. Может кто-нибудь сталкивался с этим.

Код:

procedure TForm1.FormCreate(Sender: TObject);
begin
  SetWindowLong(TrackBar1.Handle, GWL_STYLE, GetWindowLong(TrackBar1.Handle, GWL_STYLE) or TBS_TOOLTIPS);
  SendMessage(TrackBar1.Handle, TBM_SETTIPSIDE, TBTS_RIGHT, 0);
end;

WinSpy-ем проверил, флаг присутствует.

[Alegun]

Можно без всяких флагов хинт показать через Mouse.CursorPos, главное чтоб ShowHint у трекбара был в true

Код:

procedure TForm1.TrackBar1Change (Sender: TObject);
begin
  TrackBar1.Hint:= IntToStr(TrackBar1.Position);
  Application.ActivateHint(Mouse.CursorPos);
end;

[angvelem]

Можно, но это несколько не тот хинт что нужен. Нужен отдаваемый OS, стандартный используется по своему прямому назначению и не хочется их смешивать.

[Alegun]

А что ОС отдаёт, просветите пжлст - вот этого-то и не понял

[angvelem]

То что ты предлагаешь, показать позицию курсора. Я так делал лет 10 назад, когда не знал о возможности OS, но то делалось на WinAPI.

[Alegun]

О, я понял в чём дело - нет объявления 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;//вот это

Странно, переменная есть, а объявы нет, во как раньше мудрили борландовцы