Dienstag, 31. Mai 2016

Firemonkey & Form.KeyPreview

Wer hat nicht in Firemokey schon das Form.KeyPreview vermisst?


Der einfachste Workaround hierfür ist:

type
  TForm1 = class( TForm )
  private
    { Private-Deklarationen }
  protected
   
procedure IsDialogKey(const Key: Word;

                          const KeyChar: WideChar;
                          const Shift: TShiftState;
                          var IsDialog: boolean); override;   
  public
    { Public-Deklarationen }
  end;


Aber nicht den inherited vergessen!