Форум: "Начинающим";
Текущий архив: 2007.05.27;
Скачать: [xml.tar.bz2];

Вниз

настройка всплывающих подсказок в DBNavigator1   Найти похожие ветки 

← →
RomanLN   (2007-05-07 11:02) [0]

код не работает
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;

---

← →
ANB ©   (2007-05-07 11:49) [1]

DBNavigator1.Hints

---

← →
Desdechado ©   (2007-05-07 12:01) [2]

вот, блин, спамер
http://delphimaster.net/view/2-1178518958/

---

← →
Wind ©   (2007-05-08 05:05) [3]

Установи свойство  DBNavigator1.ShowHint:=True;

Проверял твой код, он работает!

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2007.05.27;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.072 c