im stringgrid eingabe mit pfeiltaste bestätigen

[tom_po]

Gut, dass du mich noch mal angeregt hast, deinen Code zu testen, jetzt gehts auf einmal. Weiss nicht, was ich vorher falsch gemacht habe...??
Keine Fehlermeldung mehr...

Jetzt fehlt nur noch dasselbe mit der Pfeiltaste nach links...kannst Du mir da nochmals helfen??

Habe es so probiert, geht aber nicht:

Delphi-Quellcode:

procedure Tlote.StringGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if (Key = VK_RIGHT) and
      (GetCaretPosition(StringGrid1) = Length(TMyGrid(StringGrid1).InplaceEditor.EditText))
      and (StringGrid1.Col < StringGrid1.ColCount - 1) then begin
         StringGrid1.Col := StringGrid1.Col + 1;
 if (Key = VK_LEFT) and
      (GetCaretPosition(StringGrid1) = Length(TMyGrid(StringGrid1).InplaceEditor.EditText))
      and (StringGrid1.Col < StringGrid1.ColCount - 1) then begin
         StringGrid1.Col := StringGrid1.Col - 1;
   end;
   end;
end;