Stringgrid mit Enter ?

[Tpercon]

Und wie wäre es damit:

Delphi-Quellcode:

  private
    Col: integer;
    { Private-Deklarationen }

...

procedure TForm1.StringGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key = vk_return then begin
  if Col = StringGrid1.ColCount - 1 then begin
    StringGrid1.Col := 1;
    key := VK_DOWN
  end
  else key := VK_RIGHT;
end;
end;

procedure TForm1.StringGrid1SetEditText(Sender: TObject; ACol,
  ARow: Integer; const Value: String);
begin
  Col := ACol;
end;