[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;

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