Цитата:
Сообщение от 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;
но похоже, это изврат. Правильно ли я понял задумку?