im stringgrid eingabe mit pfeiltaste bestätigen

[tom_po]

Ich hab's jetzt so:

Delphi-Quellcode:

procedure Tlote.StringGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   {if (Key = VK_RIGHT) AND StringGrid1.EditorMode  then
      StringGrid1.Col := StringGrid1.Col + 1;
   if (Key = VK_LEFT) AND StringGrid1.EditorMode  then
      StringGrid1.Col := StringGrid1.Col - 1; }

 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;
   end;
end;

Aber wenn ich dann nachher normal nach rechts gehe mit der Pfeiltaste, geht er wieder um 2 Spalten nach rechts