Советы по Delphi
Настройки всплывающих подсказок в DBNavigator во время выполнения приложения
Возможно ли изменение свойства Hints компонента TDBNavigator во время выполнения программы?
Это должно работать:
| 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; |
- Freddy Hansson [001008]
