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