TKOLToolbar

← →
Vanek_TV (2005-06-05 21:48) [0]

Как в TKOLToolbar менять tooltips в designtime?

← →
Dimaxx © (2005-06-05 22:51) [1]

TKOLToolbar.TBSetTooltips

← →
ECM © (2005-06-06 09:42) [2]

2Dimaxx: designtime
ИМХО: Если у кнопок на Toolbar есть текст (noTextLabels = FALSE)
ему тултипы не нужны...
...если у Toolbar noTextLabels = TRUE и ShowTooltips = TRUE
то в качестве тултипов используется Caption кнопок...
почитайте коментарий автора:

http://delphimaster.net/view/11-1110739823/
post [16]

← →
Vanek_TV (2005-06-07 01:39) [3]

качестве тултипов используется Caption кнопок...
А как Caption в designtime менять?
Извените за глупые вопросы...

← →
ECM © (2005-06-07 11:06) [4]

Q: А как Caption в designtime менять?
A: При помощи доп. редактора кнопок. Запустить его можно двумя путями:
1) Нажать на кнопку "..." в инспекторе объектов на свойстве ToolBar.Buttons
2) Через контекстное меню (правой кнопкой прямо на Toolbar) - Edit.

... Неужели трудно "потыкать" самостоятельно во все свойства? От этого ничего непоправимого не произойдет...:)

← →
Vanek_TV (2005-06-08 01:08) [5]

Брр... Извеняюсь не в designtime, а в runtime... Плохо на меня ночь влияет =)

← →
Dimaxx © (2005-06-08 01:13) [6]

В designtime - TKOLToolbar.TBSetTooltips

← →
Vanek_TV (2005-06-10 21:59) [7]

Пробовал не получается... Можно пример?

var Hints: array[0..21] of PChar; ... for I:=0 to pred(Toolbar.TBButtonCount) do begin if Hints[I]<>nil then FreeMem(Hints[I]); if not Toolbar.TBButtonSeparator(100+I) then begin S:="bla-bla"+#0; GetMem(Hints[I],Length(S)); CopyMemory(Hints[I],@S[1],Length(S)); end; end; Toolbar.TBSetTooltips(100,Hints);

Число 100 - это индекс первой кнопки в runtime (может быть другим!!!).

Тьфу!!! Строка if Hints[I]<>nil then FreeMem(Hints[I]) не нужна - это из моей оперы...

TKOLToolbar Найти похожие ветки