Исправление проблемы с TTrackBar

Страница 3 из 3

TTrackBar - извините, а какая текущая позиция?

Подсказка, показывающая текущее значение TTrackBar при перемещении ползунка удобна, то есть вам не будет необходимо добавлять TLabel для этого.

1.	Откройте "ComCtrls.pas" и найдите "TTrackBar.CreateParams".

1.	Вы увидите следующий код:

Code:

procedure TTrackBar.CreateParams(var Params: TCreateParams);

const

OrientationStyle: array[TTrackbarOrientation] of DWORD = (TBS_HORZ, TBS_VERT);

TickStyles: array[TTickStyle] of DWORD = (TBS_NOTICKS, TBS_AUTOTICKS, 0);

ATickMarks: array[TTickMark] of DWORD = (TBS_BOTTOM, TBS_TOP, TBS_BOTH);

begin

[...]

with Params do

begin

Style := Style or OrientationStyle[FOrientation] or

TickStyles[FTickStyle] or ATickMarks[FTickMarks] or TBS_FIXEDLENGTH or

TBS_ENABLESELRANGE;

[...]

end;

3.	Добавьте условие "or TBS_TOOLTIPS" в линию "Style:=". В конечном итоге должно получиться:

Code:

Style := Style or OrientationStyle[FOrientation] or

TickStyles[FTickStyle] or ATickMarks[FTickMarks] or TBS_FIXEDLENGTH or

TBS_ENABLESELRANGE or TBS_TOOLTIPS;

4.	Сохраните ComCtrls.pas и наслаждайтесь подсказкой.

Стили и темы Windows