|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
Перемещение указателя в DBGrid
Здравствуйте.
Проблема такая: есть ряд кнопок и четыре из них хочу сделать как в DBNavigator, т.е переход в начало списка (ToolToBegin), на предыдущую запись (ToolToBack), на слудующую (ToolToForward) и в конец списка (ToolToEnd). Вот обработчик кнопки "переход на следующую запись": Код:
procedure TForm1.ToolToForwardClick(Sender: TObject); begin if DataModule2.ADOQuery1.Eof then begin Form1.ToolToForward.Enabled:=false; Form1.ToolToEnd.Enabled:=false; end else begin DataModule2.ADOQuery1.Next; if not DataModule2.ADOQuery1.Bof then begin Form1.ToolToBack.Enabled:=true; Form1.ToolToBegin.Enabled:=true; end; end; end; Последний раз редактировалось seelenus, 20.11.2012 в 09:55. |