скрыть

скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Google  
 

Перейти по Enter на следующее поле в TDBGrid



Оформил: DeeCo

procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
 begin
   if Key = #13 then
   begin
     if DBGrid1.Columns.Grid.SelectedIndex < DBGrid1.Columns.Count - 1 then
       DBGrid1.Columns[DBGrid1.Columns.grid.SelectedIndex + 1].Field.FocusControl
     else
     begin
       Table1.Next;
       DBGrid1.Columns[0].field.FocusControl;
     end;
   end;
 end;





Copyright © 2004-2016 "Delphi Sources". Delphi World FAQ




Группа ВКонтакте   Ссылка на Twitter   Группа на Facebook