TTabSet - Hint

← →
Cobalt © (2012-01-16 18:00) [0]

Столкнулся с такой проблемой:
Имеется унаследованное приложение, использует для вкладок TTabSet
Хочу организовать показ Hint"а.
Прописал значение, включил ShowHint := True
Проблема в том, что Хинт не показывается при наведении на контрол.
ЧЯДНТ, и где править.
Достаточно для хотелки пока одного хинта на весь контрол.

← →
sniknik © (2012-01-16 19:41) [1]

> Проблема в том, что Хинт не показывается при наведении на контрол.
> ЧЯДНТ, и где править.
показывается!
ЧЯДНТ?

← →
brother © (2012-01-17 06:22) [2]

Что Я Делаю Не Так...

← →
Cobalt © (2012-01-17 16:49) [3]

Да, черт побери, совсем забыл - Дельфи 2010.
Тестовое приложение: http://webfile.ru/5773528

← →
sniknik © (2012-01-17 17:39) [4]

> Дельфи 2010
D7 поэтому не могу проверить... но пара вопросов

1 зачем панель? и что если без нее
2 зачем ParentShowHint фалсе? и что если положить "чистый" компонент без твоих пере настроек, только хинт прописать.

компонент с вкладки 3.1... может прекратили поддерживать? а там где нибудь юникодность мешает...
метод Application.OnHint назначь, проверь что туда приходит, и вообще приходит ли.

← →
Dimka Maslov © (2012-01-17 19:07) [5]

Скачал. Запустил. Посмотрел. TTabSet действительно забивает на Hint. Чтобы дальге разобраться надо копать в procedure TTabSet.CMHintShow(var Message: TCMHintShow); чё у них там делается одной эмбаркадере известно

В общем так: CMHintShow сознательно не даёт выдавать Hint, ибо он рисуется только если текст закладки ширее нежели её ширина и соответсвует заголовку закладки. Можно, конечно, запудзырить свой класс с другой логикой вывода. Но оно надо?

Мне - надо, потому что я не хочу вкладки шириной хотя бы в половину ширины компонента, и самостоятельно обрезаю её название.
Значит, придется писать новый компонент, с тем поведением, который хочу.
Спасибо Dimka Maslov © .

Потому-что у TTabSet хинт используется для другого, аименно для отображения полного текста закладок с обрезанным тестом, что собственно и можно увидеть посмотрев на код procedure TTabSet.CMHintShow(var Message: TCMHintShow); (там даже каменты под это дело не поленились вставить).

Оть тебе пример.

procedure TForm1.FormCreate(Sender: TObject); begin ts1.Tabs.Clear; ts1.Tabs.Add("qwerty1ds fsdf sdf sdf sdf sdf sdf sdf sdf ds"); ts1.Tabs.Add("qwerty1ds fsdf sdf sdf sdf sdf sdf sdf sdf ds"); ts1.Tabs.Add("qwerty1ds fsdf sdf sdf sdf sdf sdf sdf sdf ds"); ts1.Hint := "11112"; ts1.ShrinkToFit := True; ts1.ShowHint := True; end;

TTabSet - Hint Найти похожие ветки