按Enter键时禁用tspinedit上的系统蜂鸣音

你必须从 TSpinEdit 超驰 IsValidChar 避免消息蜂鸣呼叫或 KeyPress 避免 IsValdChar .

试试这个

//Disable system beep
SystemParametersInfo(SPI_SETBEEP, 0, nil, SPIF_SENDWININICHANGE); 

//Enable system beep
SystemParametersInfo(SPI_SETBEEP, 1, nil, SPIF_SENDWININICHANGE); 

在窗体上设置keypreview=true,并将以下代码添加到窗体的按键事件中:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if SpinEdit1.Focused and (Key = #13) then
  begin
    Key := #0; // Cancels the keypress
    Perform(CM_DIALOGKEY, VK_RETURN, 0); // Invokes the default button
  end;
end;