Ergebnis der Suchanfrage

• Forum: Programmieren allgemein

  AW: KeyPress, Keydown

   
    by derseitzer, 20. Apr 2017
  Ich habe gerade sowas hier gefunden:
  
  procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
  begin
  if not (key in ) then key:=#0;
  end;
  
  scheint aber nicht zu funktionieren.. zumindest komme ich mit alt+Tab aus dem Programm (, was ich zum Beispiel vermeiden will, da das Programm geschlossen werden soll).
• Forum: Programmieren allgemein

  KeyPress, Keydown

   
    by derseitzer, 20. Apr 2017
  ich würde gerne alle Tasten außer die Linke Maustaste und Buchstaben von a-z sperren. Ich möchte dabei nicht unbedingt alle Tasten einzeln aufzählen, sondern sowas wie
  if (key = #30..#50) then.. programmieren.
  Hat jemand so einen Code parat?
  MfG :)