lästiges beepen abstellen ??

[Ron67]

Jetzt habe ich es!

1) FormKeyDown benutzen
2) Key = 18 abfangen
3) WM_SYSKEYUP, WM_SYSKEYDOWN beide als Parameter in PeekMessage

Der ganze Code:

Code:

procedure TMedikation.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  Mgs: TMsg;
begin
  if (ssAlt in Shift) and (Key = 18) then exit;
  if (ssAlt in Shift) and (Key = 86) then
  begin
    Key := 0;
    PeekMessage(Mgs, 0, WM_SYSKEYUP, WM_SYSKEYDOWN, PM_REMOVE);
    edtVorpraeparat.SetFocus;
  end;
end;