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;