Настройки всплывающих подсказок в DBNavigator
|
Звонок интернет повайдеру:
- Алло, это интернет?
- Да.
- Тогда соедените меня с www.delphiworld.ext
|
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;
|
|