[Alegun]

Сообщение от angvelem

...Получилось только через перехват CreateParams.

Тоже перебрал возможные варианты, твой код по переопределению работает, но лишь с другими стилями, TBS_TOOLTIPS устанавливаться так и не захотел, тоже получилось только через CreateParams, в смысле

Код:

type
 TTrackBar = class(ComCtrls.TTrackBar)
protected
 procedure CreateParams(var Params: TCreateParams); override;
end;

type
 TForm1 = class(TForm)
  TrackBar1: TTrackBar;
....

procedure TTrackBar.CreateParams(var Params: TCreateParams);
begin
 inherited;
 Params.Style:= Params.Style or CommCtrl.TBS_TOOLTIPS;
end;

но похоже, это изврат. Правильно ли я понял задумку?

[angvelem]

Сообщение от Alegun

... TBS_TOOLTIPS устанавливаться так и не захотел...

Самое смешное, что устанавливается, но не работает. Проверял через WinSpy. Код практически такой-же.

Код:

  TTrackBar = class(ComCtrls.TTrackBar)
    procedure CreateParams(var Params: TCreateParams); override;
  end;
...
procedure TTrackBar.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  Params.Style := Params.Style and not TBS_ENABLESELRANGE or TBS_FIXEDLENGTH or TBS_TOOLTIPS;
end;

CommCtrl указывать не нужно.
Это не изврат, а вполне документированный метод изменения класса под свои нужды. Хотелось через SetWindowLong, но в Дельфи 7 так не получилось, хоть все стили установились.

[Alegun]

Возник вопрос, этот код действует на всех наследников данного переделанного класса, а как попроще можно такое проделать лишь с одним экземпляром, - создать свой класс, изменить и его использовать вместо родительского, делал так, но это просто не одна строка в коде набирается, других вариантов случайно нет?

[angvelem]

Другой вариант, который не прошёл для TBS_TOOLTIPS, SetWindowLong или, действительно, писать свой класс.