Звонок интернет повайдеру:
- Алло, это интернет?
- Да.
- Тогда соедените меня с 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 раздела Компоненты и Классы TDBNavigator может быть полезна для разработчиков на Delphi и FreePascal.
Комментарии и вопросы
Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.