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?