im stringgrid eingabe mit pfeiltaste bestätigen

[tom_po]

ich weiss nicht, aber bei mir funktioniert's jetzt eigentlich so wie ich es will:

Delphi-Quellcode:

procedure Tlote.StringGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   begin
   if (Key = VK_RIGHT) AND StringGrid1.EditorMode and (StringGrid1.col < StringGrid1.ColCount-1)  then
      StringGrid1.Col := StringGrid1.Col + 1;
   if (Key = VK_LEFT) AND StringGrid1.EditorMode and (StringGrid1.col < StringGrid1.ColCount-1)  then
      StringGrid1.Col := StringGrid1.Col - 1;
   end;
 {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;

nur wenn ich in der letzten rechten Spalte des Grids bin, komm ich nicht nach links mit dem Pfeil, aber das ist für meine Anwendung egal.