| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
настройка всплывающих подсказок в DBNavigator1 [D7]
RomanLN © (2007-05-07 11:02:00)код не работает
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;
Wind (2007-05-08 05:05:00) [1]Установи свойство DBNavigator1.ShowHint:=True;
Проверял твой код, он работает!
Desdechado (2007-05-07 12:01:00) [2]вот, блин, спамер
http://www.delphimaster.ru/cgi-bin/forum.pl?id=1178518958&n=18
ANB (2007-05-07 11:49:00) [3]DBNavigator1.Hints
| |
