cxGrid: statt "Gehe zur nächsten Zelle bei der Eingabe" mit "Enter" mache das mit den Pfeiltasten

Question

Gibt es eine Möglichkeit, die cxGrid Funktionalität "Gehe zur nächsten Zelle bei der Eingabe" aber mit den Pfeiltasten auf der Tastatur statt von "Enter" zu schlagen ???

Jetzt kann ich mit den Pfeiltasten navigieren, aber die Zellen, auf die ich mich bewege, sind nicht ausgewählt (blaue Farbe). Wenn ich eine Zelle in der Spalte bearbeite und in die Zelle darunter (mit der Pfeiltaste) gehe, springt das Raster auf einen anderen zufälligen Datensatz im Raster, was nervig ist.

Ist es eine Frage der Einstellungen oder müssen Sie diese Funktionalität programmieren?

bearbeiten: Dies ist eine einfache temporäre Tabelle, die ich verwenden, um Daten zu sammeln. Es hat keine indizierten Felder oder AutoInc Feld:

procedure TForm3.cxButton1Click(Sender: TObject); 
begin 
DataModule2.ACRQuery2.Close; 
DataModule2.ACRQuery2.SQL.Clear; 
DataModule2.ACRQuery2.SQL.Text :='insert into TEMP select company_id,member_id,surname,name from MEMBERS where company_id =:a1'; 
DataModule2.ACRQuery2.Params.ParamByName('a1').Value :=cxLookupComboBox2.Text; 
DataModule2.ACRQuery2.ExecSQL; 

DataModule2.ACRQuery3.Close; 
DataModule2.ACRQuery3.SQL.Clear; 
DataModule2.ACRQuery3.SQL.Text :='update temp set month=:a1,year=:a2'; 
DataModule2.ACRQuery3.Params.ParamByName('a1').Value :=cxComboBox2.Text; 
DataModule2.ACRQuery3.Params.ParamByName('a2').Value :=cxTextEdit2.Text; 
DataModule2.ACRQuery3.ExecSQL; 

DataModule2.TEMP.Refresh; 
end; 

Datenlasten, aber wenn ich den ersten Datensatz bearbeiten und nach unten mit dem Pfeil bewegen, springt der Cursor an das Ende des Gitters.

Navigation mit den Pfeiltastenfunktionen normally.I die Spalte ohne Problem nach unten scrollen und bearbeiten jeden Datensatz Ich mache eine Pause auf. Aber sobald ich es bearbeite und zum nächsten Datensatz gehe, springt der Cursor irgendwo anders hin. Es scheint, dass die Synchronisierung nicht funktioniert. Ich weiß es wirklich nicht. Ich sortiere in keiner Weise.

Die temporäre Tabelle:

Answer 1

Ist es eine Frage der Einstellungen oder müssen Sie diese Funktion programmieren?

Ja, es ist eine Frage der Einstellungen und es erfordert keinen Code. Es gibt jedoch offensichtlich ein Problem in Ihrem Projekt, das Sie zuerst klären müssen.

Wenn Sie sagen "das Raster springt zu einem anderen zufälligen Datensatz im Raster, was nervig ist.", Klingt es, als ob Sie von der falschen Stelle aus starten und versuchen, das gewünschte Navigationsverhalten zu erhalten, weil Sie springen das sollte sicher nicht passieren. Und das ist in keinem cxGrid-Projekt der Fall.

Wie auch immer, ich finde, dass die Darstellung einer cxGridDBTableView im Objektinspektor es manchmal schwierig macht, "das Holz für die Bäume zu sehen". Was ich dann mache ist, ein Projekt zu verwenden, das das Gitter komplett im Code erstellt - siehe unten.

unten Der Code ist völlig eigenständig und benötigt keine Event-Handler, persistent TFields, etc. Wenn Sie es versuchen, sollten Sie diese standardmäßig als erstellt finden, das Gitter tut Unterstützung nach oben und unten und linke und rechte Zellennavigation unter Verwendung der Cursortasten. Die einzige Ausnahme ist, dass die linken und rechten Tasten nicht für die Zellennavigation funktionieren, wenn der aktuelle Zelleninhalt bearbeitet wird. Wenn Sie jedoch Kommentar- der Linie

cxView.DataController.Options := cxView.DataController.Options + [dcoImmediatePost]; 

dann, Pressen Enter während in einer Zelle Bearbeitung sofort die Bearbeitung zurück zu dem Datensatz Pfosten und das Netz wird ermöglicht es Ihnen, aus der Zelle zu navigieren, indem Sie mit der linken - oder Rechts-Pfeiltaste. Ich bin mir sicher, dass es bessere Möglichkeiten gibt, diesen Effekt zu erreichen, indem die Schlüsselverarbeitung im Code verarbeitet wird, aber zumindest hat die Methode dcoImmediatePost den Vorteil, dass kein Code benötigt wird.

Wenn die App startet, sollten Sie sehen, dass die oberste Zeile "hervorgehoben" ist (standardmäßig blau), mit Ausnahme der LH-Zelle, die fokussiert ist.

Ich hoffe, dieses Beispiel wird Ihnen helfen, die Ursache des "Springens" in Ihrem Projekt zu identifizieren und kann Ihnen auch helfen, Ihre Beschreibung dessen, was Sie erhalten möchten, im Hinblick auf die Cursortastennavigation zu verfeinern.

-Code

procedure TForm1.CreateGrid; 
begin 
    cxGrid := TcxGrid.Create(Self); 
    cxGrid.Parent := Self; 
    cxGrid.Width := 400; 

    cxLevel := cxGrid.Levels.Add; 
    cxLevel.Name := 'Firstlevel'; 

    cxView := cxGrid.CreateView(TcxGridDBTableView) as TcxGridDBTableView; 
    cxView.Name := 'ATableView'; 
    // Uncomment the following line to make the grid respond to the `Enter` key by posting any pending change to the data row 
    // cxView.DataController.Options := cxView.DataController.Options + [dcoImmediatePost]; 

    cxView.DataController.KeyFieldNames := 'ID'; 

    cxLevel.GridView := cxView; 

    cxView.DataController.DataSource := DS1; 

    cxView.DataController.CreateAllItems; 

end; 

function CreateField(AFieldClass : TFieldClass; AOwner : TComponent; ADataSet : TDataSet; 
AFieldName, AName : String; ASize : Integer; AFieldKind : TFieldKind) : TField; 
begin 
    Result := AFieldClass.Create(AOwner); 
    Result.FieldKind := AFieldKind; 
    Result.FieldName := AFieldName; 
    Result.Name := AName; 
    Result.Size := ASize; 
    Result.DataSet := ADataSet; 
end; 

procedure TForm1.FormCreate(Sender: TObject); 
var 
    i : Integer; 
    Field : TField; 
begin 

    Field := CreateField(TAutoIncField, Self, CDS1, 'ID', 'CDS1ID', 0, fkData); 
    Field := CreateField(TBooleanField, Self, CDS1, 'Marked', 'CDS1Marked', 0, fkData); 
    Field := CreateField(TStringField, Self, CDS1, 'Name', 'CDS1Namefield', 20, fkData); 
    Field := CreateField(TStringField, Self, CDS1, 'Value', 'CDS1Valuefield', 20, fkData); 

    CDS1.CreateDataSet; 

    CDS1.IndexFieldNames := 'ID'; 

    for i := 1 to 5 do begin 
    CDS1.Insert; 
    CDS1.FieldByName('Marked').AsBoolean := Odd(i); 
    CDs1.FieldByName('Name').AsString := 'Name' + IntToStr(i); 
    CDs1.FieldByName('Value').AsString := 'Value ' + IntToStr(i); 
    CDS1.Post; 
    end; 

    CDS1.First; 

    CreateGrid; 

    ActiveControl := cxGrid; 

end; 

Answer 2

Nach unzähligen Experimenten Ich glaube, ich das Problem gefunden haben: Es scheint, dass diese Funktion der Daten-Controller zu verwenden, muss auf „Grid-Modus“ eingestellt werden.