FormKeyDown ActiveControl.name ist immer leer

[cramer]

Hallo,

ich habe eine Form mit einigen TcxTabSheets auf denen sich etliche tcxTextEdit Felder befinden.
Form1 ist das einzige und das Main Form.

Per HotKey z.B. F2 soll "Mach etwas im fokussierten Edit Feld" gestartet werden.

Delphi-Quellcode:

procedure TFORM1.FormKeyDown( Sender: TObject; var Key: Word; Shift: TShiftState );
begin
   if key = vk_F2 then begin
      ShowMessage( ( sender as tcomponent ).name  + ' - ' +
                    '(' + form1.ActiveControl.Name + ')'  + ' - ' +
                    '[' + screen.ActiveControl.Name   + ']');
   end;
end;

Wenn man den Cursor in ein Editfeld plaziert und F2 drückt, ist das Ergebnis aber "FORM1 - () - []"

Gibts ne andere Lösung um an das fokussierte Feld zu kommen