Abfangen von Funktionstasten

[Leuselator]

Aua aua - das tat weh (Gans, viel)...

Also - ich mach es (mir) meist im OnKeyDown, denn dort sehe ich die Scancodes der Tasten und nicht ihre Umsetzung in Char und kann deshalb präzise differenzieren:

Delphi-Quellcode:

const 
  cValidFKey     : set of Byte = [112..121];
  cValidCmdKey   : set of Byte = [8,13,33..40];
  cValidChrKey   : set of Byte = [8,13,33..40,45..46,48..57,65..90,96..105,186,192,219,222];
  cValidNumKey   : set of Byte = [8,13,33..40,45..46,48..57       ,96..105];
  cValidDateKey  : set of Byte = [8,13,33..40,45..46,48..57       ,96..105,190];
implementation
procedure EditKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if not ((Key in cValidFKey) or (Key in cValidCmdKey) or (Key in cValidNumKey)) then begin
    sysutils.Beep;
    Key = $0;
  end;
end;

Gruß