Enter taste

[BrunoT]

Hallo Peter,

es geht folgendermassen:

Delphi-Quellcode:

procedure TForm1.DBGrid1KeyPress(Sender: TObject;
  var Key: CHAR);
begin
  if (Key = ^M) then
  If DBGrid1.SelectedIndex <DBGrid1.Columns.Count-1 Then
    DBGrid1.SelectedIndex := DBGrid1.SelectedIndex + 1
  else
    DBGrid1.SelectedIndex := 0;
end;

mfg


BrunoT