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?