Цитата:
Сообщение от 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 так не получилось, хоть все стили установились.