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

Delphi , Компоненты и Классы , TDBGrid

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

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;

Статья Перейти по Enter на следующее поле в TDBGrid раздела Компоненты и Классы TDBGrid может быть полезна для разработчиков на Delphi и FreePascal.

Комментарии и вопросы

:: Главная :: TDBGrid ::