Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  AW: lästiges beepen abstellen ??

    Delphi
    by Ron67, 18. Jun 2019
  Jetzt habe ich es!
  
  1) FormKeyDown benutzen
  2) Key = 18 abfangen
  3) WM_SYSKEYUP, WM_SYSKEYDOWN beide als Parameter in PeekMessage
  
  Der ganze Code:
  procedure TMedikation.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
  var
• Forum: Sonstige Fragen zu Delphi

  AW: lästiges beepen abstellen ??

    Delphi
    by Ron67, 18. Jun 2019
  Danke für die Antworten.
  
  Jetzt fällt mir beim Debuggen auf: Das Beep kommt schon vor der Prüfung auf den Key.
  Also so
  <Beep>
  if (ssAlt in Shift) and (Key = 86) then ...
  
  PeekMessage kann ich vergessen.
  
  Die Methode mit dem Char hat kein Parameter Shift.
• Forum: Sonstige Fragen zu Delphi

  AW: lästiges beepen abstellen ??

    Delphi
    by Ron67, 17. Jun 2019
  Hallo zusammen, ich habe etwas ähnliches.
  
  Bei mir gibt es u.a. zwei Edit-Felder. Meistens füllt man nur das zweite aus. Daher hat das erste Editfeld kein Tabstob
  Mit der Tastenkombination Alt + V soll der Fokus aber auf das erste Edit-Feld gelegt werden.
  
  Im FormCreate habe ich schon
  KeyPreview := True;
  
  Dann habe ich: