Mit ENTER das Nächste Feld selektieren (so wie Tab)

[Hansa]

wie wärs mit :

Delphi-Quellcode:

if key = #13 then
  Col := Col + 1;

Und zwar im OnKeyPress des Grids. Bei dir steht "key = 13", vermute deshalb, daß es im OnKeyDown ist und somit eventuell zu früh.

[alzaimar]

Im OnKeyDown ist der Key ein 'Virtual Key Code'.
Im OnKeyPress kommen nur 'druckbare' Zeichen an (also keine Cursor- oder Funktionstasten). Hier ist Key ein Char und bezeichnet das Zeichen selbst.

Richtig wäre im OnKeyDown der Form (mit KeyPreview=True) das hier:

Delphi-Quellcode:

Procedure TMyForm.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  If Key= VK_RETURN Then Key := VK_TAB;
end;

Das ist eigentlich das genau Gleiche wie der nicht funktionierende Code von Karstadt, aber "besser", weil mit VK_ Konstanten (obwohl VK_RETURN = 13 und VK_TAB = 9 ).

Das funktioniert auch mit DBGrid und allen anderen Controls... wenn, ja wenn man der Form über
MyForm.KeyPreview = True sagt, das sie (die Form) die Tastendrücke bitte zuerst bekommen soll. Denn offensichtlich wird das ENTER von irgendwem abgefangen. Mit KeyPreview=True passiert das meistens nicht. Da es aber einige Controls gibt, die sich per WndProc noch vor das OnKeyDown der Form schalten, wäre die perfekte Vorgehensweise, die WndProc der Form zu überschreiben. Hier fängt man die WM_KEYDOWN - Message ab und ändert im Message-Record den wParam entsprechend.

[Nils_13]

Wozu soll man denn immer Komponenten benutzen ? Es ist doch viel sinnvoller keine zu benutzen, da die Qualität des Programms dadurch steigt.

[alzaimar]

Komponenten? Weils einfach ist. Aber stell die Frage in einem eigenen Thread.

[Hansa]

Zitat von alzaimar:

...Das funktioniert auch mit DBGrid und allen anderen Controls... wenn, ja wenn man der Form über
MyForm.KeyPreview = True sagt, das sie (die Form) die Tastendrücke bitte zuerst bekommen soll.

Das mag künstlerisch richtig sein, aber hier wird eher das Handwerk benötigt. Habe nachgeschaut :

Delphi-Quellcode:

procedure TfrmEin.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  EnterTab(Sender,Key,Shift,[],[],true);
end;

procedure TfrmEin.sgEnter(Sender: TObject);
begin
  KeyPreview := false;
  sg.SetFocus;
...
end;

procedure TfrmEin.sgExit(Sender: TObject);
begin
  KeyPreview := true;
end;

...

Luckie hat ja den Link zu EnterTab bereits gepostet. Die Controls der Form werden bei mir immer mit Enter verlassen / bestätigt. Dies bedeutet EnterTab setzen und KeyPreview auch auf true setzen. Aber eben NICHT im Grid (siehe Source) !!! Hier irrt sich der Künstler.

[tschinkes]

Zitat von MagicAndre1981:

Für die Komponentenliebhaber hat JEDI auch was dabei, dass das macht

Welche Komponente ist das den? Oo Jedi hat soviel das man echt den Überblick verliert. Wäre schön wenn du mir sagen könntest wo ich die finde.