Настройки всплывающих подсказок в DBNavigator

Previous  Top  Next

    
 

 

 

Code:

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;

 

 

©Drkb::03086

       

Взято с http://delphiworld.narod.ru