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.

markieren

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

FormKeyDown ActiveControl.name ist immer leer

FormKeyDown ActiveControl.name ist immer leer

Forumregeln