FormKeyPress mit TEdit?

[TForm1]

Hallo zusammen,

ich möchte ein simplen Rechenvorgang zusätzlich zu einem ButtonClick mit einem FormKeyPress- Event mit Enter aufrufen. Das Formular hat mehrere TEdits. Problem ist, dass die Methode FormKeyPress nicht aufgerufen wird, solange die Edits im Fokus sind. Wenn ich stattdessen ein EditKeyPress- Ereignis aufrufe, funktioniert das. Frage jetzt: wie kann man FormKeyPress über das gesamte Formular aufrufen (egal ob Edits ausgewählt sind oder nicht)? Gibt es evt. eine bessere Methode?

Delphi-Quellcode:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: char);
begin
  if Key = #13 then Rechnen.Click;
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: char);
begin
  FormKeyPress(self, Key);
end;

Dann noch eine Frage: Mit welcher Eigenschaft der Edits lässt sich der Fokus kontrollieren?

[himitsu]

KeyPreview?

Oder das selbe Event bei allen Edits "direkt" anhängen.


Ach ja, man glaubt es kaum, aber Edit.SetFocus und Form.ActiveControl sind dafür da, um den Fokus zu kontrollieren.

[TForm1]

Zitat von himitsu:

KeyPreview?

Super! Das ist genau das, was ich gesucht habe.