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

[Karstadt]

Hallo. Wass muss ich tun, damit ich mit Enter taste das Nächste Feld in DBGRIB Auswählen kann?

Mfg Karstadt

Delphi-Quellcode:

procedure Tf_pnv.dbg_auftragKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  If Key = 13 then Key := 9;
end;

Funktioniert leider nicht

[Luckie]

Das hatten wir schon so oft, mit der Suche sollte sich da bestimmt was finden lassen, man muss die Suche nur bemühen.

enter tab und wenn man die Suche nur auf die CodeLib beschränkt wird es sogar noch übersichtlicher: enter tab.

[MisterNiceGuy]

Delphi-Quellcode:

If Key = 13 then Edit2.setfocus;

[Luckie]

Zitat:

Zitat von MisterNiceGuy

Delphi-Quellcode:

If Key = 13 then Edit2.setfocus;

Sehr effektiv, wenn man 15 Edits hat. Warum diese unsinnige Lösung, wenn man mit der Suche eine gescheite findet?

[MagicAndre1981]

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

[Karstadt]

Ha ha ha :)

Delphi-Quellcode:

procedure Tf_pnv.dbg_auftragKeyPress(Sender: TObject; var Key: Char);
begin
  If Key = #13 then Key := #39;
end;

Einfacher als ich gedacht habe :)

[Mavarik]

Oder nimm einfach eine Komponente!

Zum Beispiel diese hier

Frank :coder:

[Luckie]

Meine Güte, irgendwie scheint niemand in der Lage zu sein auf die Links in meinem Posting zu klicken. :roll:

Delphi-Quellcode:

if Key = #13 then Self.Perform(WM_NEXTDLGCTL,0,0);

[Karstadt]

Probier doch selber aus. wichtig ist ES GEHT HIER UM DBGRIB und dort funktioniert das nicht! Est selberprobieren dann posten!

Delphi-Quellcode:

  if Key = #13 then self.Perform(WM_NEXTDLGCTL,0,0);

Es soll nicht von eine Komponente zu einen andere Komponente das Tab gesetzt werden sondern von feld zu feld!

[Karstadt]

Das Problem ist nur. Wenn ich in einen Bearbeitungsmodus bin dann funktioniert das nicht.

Delphi-Quellcode:

  if (Key = 13) And (mqr_artikelliste.State <> dsBrowse) Then
  begin
    mqr_artikelliste.post;
  end;

  If Key = 13 then
  begin
    dbg_auftrag.Enabled := False;
    dbg_auftrag.Enabled := True;
    dbg_auftrag.SetFocus;
    Key := 9;
  end;

hat jemand eine Idee (Die Suche hat mir in diesen Fall überhaupt nicht geholfen :(