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;
| 
Настройки всплывающих подсказок в DBNavigator
