настройка всплывающих подсказок в DBNavigator1

← →
RomanLN (2007-05-07 11:02) [0]

код не работает
procedure TForm1.Button1Click(Sender: TObject);
var
ix: integer;
begin
with DBNavigator1 do
for ix := 0 to ControlCount - 1 do
if Controls[ix] is TNavButton then
with Controls[ix] as TNavButton do
case index of
nbFirst: Hint := "Подсказка для кнопки First";
nbPrior: Hint := "Подсказка для кнопки Prior";
nbNext: Hint := "Подсказка для кнопки Next";
nbLast: Hint := "";
{......}
end;
end;

← →
ANB © (2007-05-07 11:49) [1]

DBNavigator1.Hints

← →
Desdechado © (2007-05-07 12:01) [2]

вот, блин, спамер
http://delphimaster.net/view/2-1178518958/

Установи свойство DBNavigator1.ShowHint:=True;

Проверял твой код, он работает!

настройка всплывающих подсказок в DBNavigator1 Найти похожие ветки