Wie Entertaste bei Button abfangen?

[engine]

Zitat von SirThornberry:

Anwender die mit PC's ohne Maus arbeiten arbeiten in aller Regel mit der Tabtaste. Nicht umsonst heißt das Property auch TabStop, weil es eben mit der Tabtaste angesprungen werden kann. Man sollte also die Bedienführung windowsmäßig lassen. So das Enter auführen des Buttons ist und Tab zum springen von einem Control zum nächsten. Du könntest noch vesuchen ob es beim Button ein OnKeyPress oder ähnliches gibt.

Das kommt ganz auf die Anwendung an. Sicher sollte man sich immer an eine Windowseinheitliche Richtlinie halten, es gibt aber durchaus auch Anwendungsfälle bei denen es effektiver ist einen anderen Weg zu gehen. Als Beispiel möchte ich Berechnungsprogramme für den Maschinenbau heranziehen. Hierbei ist die Reihenfolge der Eingabe meistens vorgegeben. Aus meiner eigenen Erfahrung kann ich sagen, das der Wechsel zwischen den Controls nach einer Eingabe mit einem Return wesentlich angenehmer ist (jedenfalls für Rechtshänder).

Du kannst es im OnKeyPress so lösen.

Delphi-Quellcode:

procedure TForm1.LabeledEdit2KeyPress(Sender: TObject; var Key: Char);
begin
  case Ord(Key) of
    13 : begin      //Wenn RETURN [13] gedrückt wurde
           LabeledEdit3.SetFocus; //Den Fokus an das nächste Steuerelement
           key := #0;
         end;
  end;
end;

engine