lästiges beepen abstellen ??

[MrSpock]

Hallo toms,

dafür könnte man den ender benutzen:

Code:

   if Not (Sender is TMemo) then
   begin
       case Key of
          VK_RETURN, VK_TAB: begin  // ENTER oder TAB-Taste erkannt
             Key := 0;
             Perform(WM_NextDlgCtl, ord(Shift = [ssShift]), 0);
             PeekMessage(Mgs, 0, WM_CHAR, WM_CHAR, PM_REMOVE); // Beep-Ton ausschalten
          end;
      end // für CASE Key OF 
  end;