im stringgrid eingabe mit pfeiltaste bestätigen

[tom_po]

Wenn ich in meinem Stringgrid etwas eingebe, kann ich mit der Pfeiltaste nach unten die Eingabe bestätigen und gleichzeitig springt der Cursor in die nächste Linie derselben Spalte.
Wenn ich aber dasselbe mit der Pfeiltaste nach rechts mache, um zu bestätigen und gleichzeitig eine Spalte nach rechts zu kommen (in derselben Zeile) geht das nicht, muss erst die Enter-Taste drücken.

Was und wie muss ich bei den Eigenschaften des Stringgrids ändern, damit auch die Pfeiltaste nach rechts so funktioniert, wie die Pfeiltaste nach unten?

[s-off]

Hallo,

Delphi-Quellcode:

procedure TForm1.StringGrid1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
   if Key = VK_RIGHT then begin
      StringGrid1.Col := StringGrid1.Col + 1;
   end;
end;

Die Frage ist, ob Du das wirklich möchtest.

[tom_po]

supe s-off, genau das war's was ich wollte, vielen Dank.

Noch ne Frage: weisst Du, warum man bei der Pfeiltaste nach rechts dies so programmieren muss und bei der Pfeil nach unten Taste dies automatisch so ging?

[Klaus01]

da bleibt nur die Frage, wozu, denn wenn das so geht wie
Du willst, kanst Du nicht mehr inerhalb der Spalte mit
der Pfeiltaste nach rechts navigieren.

Grüße
Klaus

[s-off]

Ja, das kann ich Dir sagen.

Mit der Pfeiltaste nach rechts kannst Du innerhalb der Zelle in Deinem geschriebenen Inhalt navigieren, was Du jetzt nicht mehr kannst - deswegen ja auch meine Bedenken, ob Du das wirklich möchtest ;)

[tom_po]

achso, jetzt habe ichs gemerkt, klar, das ist so nicht gut...

dann nehm ich es besser wieder weg...schade

dennoch meine Frage: warum geht es mit den Pfeiltasten nach oben und unten automatisch, man gibt was ein und kommt mit der Pfeiltaste sofort nach oben oder unten ohne zusätzlich die Enter-taste drücken?

[s-off]

Wie gesagt, weil Du mit den vertikalen Pfeiltasten nicht innerhalb der Zelle navigierst, mit den horizontalen schon.

[tom_po]

ok, s-off, kann man aber nicht dennoch über "Umwege" dies hinkriegen, z.B. bei Key-Down eine automatisch Enter-Funktion einbinden, damit ich dies nicht seblst mit der Taste machen muss, wenn ich mit dem Pfeil nach rechts gehe?

[s-off]

Ja klar kannst Du das machen, nur hat es den gleichen Effekt ^^. Du musst Dir im klaren sein, dass, wenn Du beim OnKeyDown Event der Pfeil-nach-rects-Taste etwas machst, die Navigation innerhalb der Zelle ggf. nicht mehr funktioniert.

Du könntest es auch so machen, dass nur nach rechts gesprungen wird, wenn zusätzlich die STRG-Taste gedrückt ist.

Was vielleicht auch noch möglich, aber nicht ganz so einfach wäre, ist, die Caret-Position innerhalb der Zelle abzufragen, und nur eine Spalte weiter zu springen, wenn sich der Caret am Ende des Inhalts der Zelle befindet.


Edit: probier es mal so:

Beim Druck der Pfeil-nach-rechts-Taste wird nur in die nächste Spalte gewechselt, sofern sich der Caret am Ende des Zelltextes befindet. Ansonsten wird normal innerhalb der Zelle navigiert.

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    procedure StringGrid1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

type
  TMyGrid = class(TStringGrid);

var
  Form1: TForm1;

implementation

{$R *.dfm}

function GetCaretPosition(Grid: TStringGrid): Integer;
begin
   with TMyGrid(Grid) do
   begin
      Result := InplaceEditor.SelStart;
   end;
end;

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

end.

[tom_po]

mit Hilfe eines Users aus einem anderen Forum (DL) hab ich es jetzt so gelöst:

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

was ist der Unterschied zu deiner Variante s-off?

[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

Delphi-Quellcode:

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

Delphi-Quellcode:

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:

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 :coder2: *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.

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

[s-off]

Hi,

habe Dir das Beispielprojekt für beide Tasten mal angehängt, und auch die FixedCols berücksichtigt.
Mit den Kommentaren solltest Du auch zurecht kommen.

Schau's Dir einfach an.

[tom_po]

Mensch, du hast dir aber jetzt wirklich soviel Mühe gemacht. Genau das wollte ich..vielen, vielen Dank.

Getestet und für gut befundne, werde es jetzt ausführlich anschauen, damit ich es auch genau verstehe.

[s-off]

Gern geschehen.

Ein Fehler bei dem Kommentar zur Links-Taste ist mir gerade aufgefallen:

Delphi-Quellcode:

(GetCaretPosition(StringGrid1) = 0) and //und sich der Caret am Ende des Zelltextes befindet

muss natürlich heissen:

Delphi-Quellcode:

(GetCaretPosition(StringGrid1) = 0) and //und sich der Caret am Anfang des Zelltextes befindet

[tom_po]

verstehe, danke