Звонок интернет повайдеру:
- Алло, это интернет?
- Да.
- Тогда соедените меня с www.delphiworld.ext
procedure TForm1.Button1Click(Sender: TObject);
var
ix: integer;
beginwith DBNavigator1 dofor ix := 0 to ControlCount - 1 doif Controls[ix] is TNavButton thenwith Controls[ix] as TNavButton docase index of
nbFirst: Hint := 'Подсказка для кнопки First';
nbPrior: Hint := 'Подсказка для кнопки Prior';
nbNext: Hint := 'Подсказка для кнопки Next';
nbLast: Hint := '';
{......}end;
end;
В статье описывается настройка всплывающих подсказок в DBNavigator в Delphi, представляющее собой программу, которая изменяет текст hint для кнопок навигатора.
Комментарии и вопросы
Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.