OnKeyDown wird bei Firemonkey 2x ausgeführt

[divBy0]

Hallo,

ich bin gerade etwas mit Firemonkey am experimentieren und dabei ist mir aufgefallen, dass das OnKeyDown eines TEdit 2x ausgeführt wird.

Beispiel bei Werteingabe TEdit gelb färben, mit Return weiß färben funktioniert unter der VCL, aber unter Firemonkey nicht.

Delphi-Quellcode:

(* Firemonkey *)
procedure TForm1.EditVoltageKeyDown(Sender: TObject; var Key: Word;
  var KeyChar: Char; Shift: TShiftState);
begin
  if Key = vkReturn then
  begin
    SetEditControlColor((Sender as TEdit), claWhite);
  end else
    SetEditControlColor((Sender as TEdit), claYellow);
end;

Delphi-Quellcode:

(* VCL *)
procedure TForm1.EditVoltageKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_RETURN then
  begin
    (Sender as TEdit).Color := clWindow;
  end else
    (Sender as TEdit).Color := clYellow;
end;

Kann das jemand bestätigen?