im stringgrid eingabe mit pfeiltaste bestätigen

[Klaus01]

..wenn Du dann so in den Zellen herumwanderst, solltest
Du vielleicht noch abfangen nicht über den linken pder rechten
Rand hinauszuwandern.

Grüße
Klaus

[s-off]

Also ich finde, dass die Lösung die Du jetzt hast, ziemlich murks ist *g* *sry*
Du kannst nun nicht nur nicht mehr navigieren, bei Taste links springt meine gesamte Zelle dann auch noch einen nach rechts, wenn ich mich im Edit Modus befinde *lol*

Edit. Danke Klaus, das hatte ich nicht bedacht.
Also erweitern wir die if-Klausel um

and (StringGrid1.Col < StringGrid1.ColCount - 1)

[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

[s-off]

Zitat:

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

Öhm, ja klar macht er das, denn Du führst ja jetzt auch zweimal
StringGrid1.Col := StringGrid1.Col + 1; aus.

[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.

[s-off]

Gib mal in die erste Zelle etwas ein, und drück Pfeil-links solange Du noch im Editor Mode bist, und schau, was passiert -> das kannst Du nicht wollen.

Desweiteren: was machst Du, wenn Du in einer Zelle folgendes stehen hast: 'Du bin ein toller Hecht' und Dir plötzlich auffällt, dass es ja heissen musst 'Du bist ein toller Hecht'?

[tom_po]

Zitat von s-off:

Gib mal in die erste Zelle etwas ein, und drück Pfeil-links solange Du noch im Editor Mode bist, und schau, was passiert -> das kannst Du nicht wollen.

Desweiteren: was machst Du, wenn Du in einer Zelle folgendes stehen hast: 'Du bin ein toller Hecht' und Dir plötzlich auffällt, dass es ja heissen musst 'Du bist ein toller Hecht'?

Das erste habe ich gemacht, nichts Ungewöhnliches festgestellt.
Auch beim zweiten klappt alles, das Eingegebene kann ich ohne Problem editieren, der Code sieht jetzt so aus:

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

[s-off]

Na dann bin ich wohl zu blöd...

Wenn ich mich in Spalte 1, Zeile 1 befinde, dort etwas eingebe, und dann die Pfeil-nach-links-Taste drücke, dann wird links neben spalte eins eine zusätzliche Spalte eingefügt.
Das von mir geschriebene steht also in Spalte 2 und das Grid hat plötzlich 6 anstatt 5 Spalten.

Und wenn ich eine Zeile editiere, dann kann ich dort nicht mit der Pfeil-links-Taste innerhalb des Textes in der Zelle nach links navigieren.

Aber wenn es bei Dir funktioniert - werde glücklich damit *amkopfkratz*

[tom_po]

Du hast Recht. Allerdings fügt sich bei mir keine weitere Spalte ein, sondern es kommt die beiliegende Fehlermeldung, das kann ich verkraften.

Auch das Problem, dass man beim Editieren nicht mit Pfeil nach links kann (innerhalb desselben Feldes) umgehe ich damit, dass ich mit der Maus an die entsprechende Stelle gehe.

Die Möglichkeit, eben mit Pfeil nach links und rechts nach der Eingabe zu gehen, ohne Enter zu drücken, ist für mich wichtiger, da ich viele Daten eingebe in einem grossen Grid, und relativ durcheinander.

Danke für Deine Hilfe s-off

[s-off]

Zitat:

Du hast Recht. Allerdings fügt sich bei mir keine weitere Spalte ein, sondern es kommt die beiliegende Fehlermeldung, das kann ich verkraften.

Dann hast Du wahrscheinlich keine FixedCols.

Ok, aber ich kann Dir trotzdem nur ans Herz legen, Dir meinen Code nochmal anzuschauen.
Damit bekommst Du keine Fehlermeldung, kannst in der Zelle navigieren, und trotzdem mit der Pfeil-Nach-Rechts-Taste in die nächste Spalte springen.