Настройки всплывающих подсказок в DBNavigator |
Previous Top Next |
Code: |
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; |
©Drkb::03086
Взято с http://delphiworld.narod.ru