Mit ENTER-Taste von EDITFeld zu EDITFeld und zur AUSGABE

[Foxgrove]

Ich komme von VISUALBASIC und möchte nun in DELPHI auch
von Feld zu Feld weiterspringen (nur mit abschließendem ENTER)
ohne Maus oder TAB-Taste.
Mit dem letzten EINGABETEXT-Feld gleich die Rechnung auslösen
und das Ergebnis ausgeben ... LÖSCHEN bzw. NEUSTART aktivieren.

Geht in VB6 mit Ereignis ONKEYPRESS und dann mit der Abfrage:
If KeyAscii = 13 then
Feldsonundso.SETFOCUS
End if

Wie geht dies in DELPHI ? :?:
:wink: :?: :?:

[hanselmansel]

HiHo,

dein Form hat das Event OnKeyPress. Darin könntest du auf die Entertaste prüfen und entweder die TAB auslösen, oder aber manuell den Fokus der Felder weitersetzen.

MfG,

hanselmansel

[Phistev]

Die Eingabefelder (TEdit, oder?) sollten auch OnKeyPress o.ä. haben. Das letzte Feld könnte dort dann den Button betätigen (TButton.Click), der Rest setzt den Focus auf den Nachfolger.

/edit. Musste man beim Form nicht noch irgendwas setzen, damit die Key-Eregignisse ausgelöst werden? :gruebel:

[zecke]

:hi:

Folgendes ins OnKeyPress von dem ersten Edit (zB Edit1):

Delphi-Quellcode:

If Key=#13 then
begin
Edit2.SetFocus;
end;

Damit setzt Du den Mauszeiger ins nächste Edit (hier Edit2). Kannst Du beliebig verändern.

edit: Einen Knopfdruck oder Funktion kannst Du natürlich auch anstelle des "Edit2.SetFocus" ausführen:

Delphi-Quellcode:

If Key=#13 then
begin
Button1.Click;
end;

Key 13 ist halt die Entertaste - klar.

[Mr_G]

Zitat:

Zitat von zecke

...
Folgendes ins OnKeyPress von dem ersten Edit (zB Edit1):

Delphi-Quellcode:

If Key=#13 then
begin
Edit2.SetFocus;
end;

...

Das macht dann aber *beep*... :wink: Ich würde das hier bevorzugen:

Delphi-Quellcode:

If Key = #13 then
begin
  Key := #0;
  Edit2.SetFocus;
end;

[zecke]

:shock: was soll das machen? Also bei mir passiert nichts, als das der Cursor ins nächste Edit springt -_-

Das gleiche trage ich in das OnKey-dings des zweiten Edits und so hüpfe ich nur mit der Enter-Taste durch Programm, aber ein *beep* kommt da nicht -_-

[Phistev]

Mit key:=#0 wird verhindert, dass die Taste noch weiterverarbeitet wird. Man könnte es aber noch weiter vereinfachen:

Delphi-Quellcode:

if Key = #13 then begin
  if Sender = Edit1 then Edit2.SetFocus
  else if Sender = Edit2 then Edit3.Setfocus
  {...}
  else if Sender = Editx then Button1.Click; //Editx ist das letzte Eingabefeld
  key:= #0;
end;

Damit braucht man nur eine Methode für alle Edit-Felder.

/edit: Key:= #0 vergessen

[Luckie]

Damit WM_NEXTDLGCTL geht's.

[Sharky]

Warum denn so kompliziert? ;-)

Einfach allen Editfeldern die Selbe OnKeyPress Methode zuweisen und dann:

Delphi-Quellcode:

procedure TForm1.AllEditKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = Chr(VK_RETURN) then // Wenn Entergedrückt wurde
  begin
    if (Sender = edt_Edit4) then
    begin
      //Berechnung starten
    end
    else
    begin
      Self.Perform(WM_NEXTDLGCTL, 0, 0); // Springe zum nächten Control.
    end;
    Key := #0;
  end;
end;

In diesem Beispiel wird davon ausgegangen das edt_Edit4 das letzte Editfeld ist.

[zecke]

@ Sharky:

Bei deinem Bsp. muss man dann auch darauf achten, dass die Tab-Reihenfolge (Begriff vergessen :mrgreen:) richtig, also wie gewünscht ist oder? Weil er springt nach dieser Richtlinie, also nach der Tab-Reihenfolge weiter oder nicht

edit: unmögliches deutsch :mrgreen:

[Mr_G]

Zitat:

Zitat von zecke

@ Sharky:

Bei deinem Bsp. muss man dann auch darauf achten, dass die Tab-Reihenfolge (Begriff vergessen :mrgreen:) richtig, also wie gewünscht ist oder? Weil er springt nach dieser Richtlinie, also nach der Tab-Reihenfolge weiter oder nicht

edit: unmögliches deutsch :mrgreen:

Stimmt genau... Aber das sollte ja kein Problem sein: Rechte Maustaste aufs Form und dann auf Tabulatorreihenfolge klicken ;).

[zecke]

[langsam OT]
Sicherlich kein Problem ;) Aber warum so kompliziert :mrgreen:? Nein Spaß, hauptsache es funktioniert, aber ich werde wohl bei meinen wenigen Edits, bei meiner Variante bleiben (ok, das 'Key:=#0' werd ich halt einfügen - schadet ja nicht) :stupid:
[/langsam OT]

[Mr_G]

Zitat:

Zitat von zecke

[langsam OT]
Sicherlich kein Problem ;) Aber warum so kompliziert :mrgreen:? Nein Spaß, hauptsache es funktioniert, aber ich werde wohl bei meinen wenigen Edits, bei meiner Variante bleiben (ok, das 'Key:=#0' werd ich halt einfügen - schadet ja nicht) :stupid:
[/langsam OT]

Ich dachte Foxgrove hätte die Frage gestellt :gruebel:
Wie dem auch sei: Jetzt ist für jeden 'ne Lösung dabei!

P.S.: Das reihmt sich :stupid:

[Flocke]

Zitat:

Zitat von zecke

Bei deinem Bsp. muss man dann auch darauf achten, dass die Tab-Reihenfolge (Begriff vergessen :mrgreen:) richtig, also wie gewünscht ist oder? Weil er springt nach dieser Richtlinie, also nach der Tab-Reihenfolge weiter oder nicht

Nur so als Anmerkung: wenn du die Tab-Reihenfolge nicht richtig setzt, dann wird jeder, der die Windows-Bedienung gewohnt ist und mit Tab von Feld zu Feld springen will, dein Programm verfluchen. Ist also schon wichtig, die richtig definiert zu haben.

[Foxgrove]

Alles klar, Foxgrove hat es kapiert.

if key = #13 then

..... das war es, es klappt wunderbar ...

MfG Foxgrove :-D :-D