Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  AW: FormKeyDown ActiveControl.name ist immer leer

   
    by cramer, 26. Jan 2017
  :thumb: Vielen Dank,
  genau das war das Problem, so klappts wie erwartet.
  procedure TFORM1.FormKeyDown( Sender: TObject; var Key: Word; Shift: TShiftState );
  begin
  if key = vk_F2 then begin
  ShowMessage( ( sender as tcomponent ).name + ' - ' +
  '(' + form1.ActiveControl.Parent.Name + ')' + ' - ' +
  '');
  end;
  end;
• Forum: Object-Pascal / Delphi-Language

  FormKeyDown ActiveControl.name ist immer leer

   
    by cramer, 26. Jan 2017
  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.
  procedure TFORM1.FormKeyDown( Sender: TObject; var Key: Word; Shift: TShiftState );
  begin
  if key = vk_F2 then begin
  ShowMessage( ( sender as tcomponent...