|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
TrackBar и хинт от OS
Для того чтобы при таскании ползунка TrackBar-а показывался хинт, нужно установить дополнительный флаг стиля окна - TBS_TOOLTIPS.
В Дельфи 2009 это уже реализовано, а в 7-ке ещё не было. Пытаюсь выставить этот флаг, но хинт не появляется, сравнивал исходные коды реализации TrackBar-ов, существенной разницы не нашёл. Может кто-нибудь сталкивался с этим. Код:
procedure TForm1.FormCreate(Sender: TObject); begin SetWindowLong(TrackBar1.Handle, GWL_STYLE, GetWindowLong(TrackBar1.Handle, GWL_STYLE) or TBS_TOOLTIPS); SendMessage(TrackBar1.Handle, TBM_SETTIPSIDE, TBTS_RIGHT, 0); end; Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |