Im Stringgrid mit Enter in nächste Zelle

[Hansa]

Hi,

ich glaube es liegt daran, daß die Form ein OnKeyDown hat, das Stringgrid aber auch. Jetzt habe ich das EnterTab da eingebaut, nützt aber nichts. Übrigens

Code:

if not (key in [48..57,8,13]) then

geht auch nicht, trotz der Abfrage wird alles akzeptiert. 8)

Delphi-Quellcode:

procedure TForm1.StringGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var Cell_ID : string;
begin
//   EnterTab(Sender,Key,Shift,[],[],true);
   IF StringGrid1.Col=1 THEN BEGIN
     case Key of
       VK_F9  : SucheArtikel;
     end;
  END;
  if not (key in [48..57,8,13]) then
    key := 0;
  with StringGrid1 do begin
    case key of
      VK_RETURN :
        begin
...
        end;
      VK_ESCAPE :
        begin
          Transaction.Commit;
          Close;
      end;
    end;
  end;
end;