Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Базы данных и репортинг > Настройки всплывающих подсказок в DBNavigator

Автор: Poseidon 18.5.2005, 17:31

Код

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;