lästiges beepen abstellen ??

[Gast]

Hallo Erni,

Code:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
VAR
      Mgs: TMsg;
BEGIN

  IF (Shift = [ssShift]) THEN
    CASE Key OF
      VK_RETURN : BEGIN                    // Shift + ENTER-Taste erkannt
                     Key := 0;
                     Perform(WM_NextDlgCtl, 1, 0);
                     PeekMessage(Mgs, 0, WM_CHAR, WM_CHAR, PM_REMOVE); // Beep-Ton ausschalten
                   END;
      VK_TAB :   BEGIN                    // ENTER-Taste erkannt
                   Key := 0;
                   Perform(WM_NextDlgCtl, 1, 0);
                   PeekMessage(Mgs, 0, WM_CHAR, WM_CHAR, PM_REMOVE); // Beep-Ton ausschalten
                 END;
    END // für CASE Key OF
  ELSE
    CASE Key OF
      VK_RETURN :   BEGIN                    // ENTER-Taste erkannt
                      Key := 0;
                      Perform(WM_NextDlgCtl, 0, 0);
                      PeekMessage(Mgs, 0, WM_CHAR, WM_CHAR, PM_REMOVE);  // Beep-Ton ausschalten
                    END;
      VK_TAB :      BEGIN                    // ENTER-Taste erkannt
                      Key := 0;
                      Perform(WM_NextDlgCtl, 0, 0);
                      PeekMessage(Mgs, 0, WM_CHAR, WM_CHAR, PM_REMOVE); // Beep-Ton ausschalten
                    END;
    END // für CASE Key OF
END;

Gruß

Paul Jr.