Wyłącz dźwięk systemu na TSpinEdit po naciśnięciu klawisza Enter

Question

Mam domyślny przycisk na formularzu, który ma na sobie kontrolkę TSpinEdit. Kiedy kontrolka TSpinEdit ma fokus i użytkownik naciśnie klawisz Enter, zamiast domyślnego kliknięcia przycisku użytkownik usłyszy sygnał dźwiękowy, ponieważ klawisz Enter jest niepoprawny dla TSpinEdit.

Normalnie, aby uniknąć sygnału dźwiękowego, użyłbym zdarzenia OnKeyPress i ustawię Key := 0, aby pominąć naciśnięcie klawisza. Mógłbym wtedy wykonać metodę kliknięcia na domyślnym przycisku. Jednak w tym przypadku funkcja OnKeyPress nie uruchamia się, ponieważ klawisz Enter jest niepoprawny.

Uruchamia OnKeyDown, ale kiedy ustawię tam Key := 0, nie zatrzymuje to dźwięku systemu.

Jak wyłączyć dźwięk systemu po naciśnięciu klawisza Enter na formancie TSpinEdit?

Jestem na Delphi 5, a oni nie uwzględnili źródła dla Spin.pas.

Answer 1

Trzeba zejść z TSpinEdit i zastąpić IsValidChar aby uniknąć wywołania MessageBeep lub KeyPress uniknąć IsValidChar.

Answer 2

Spróbuj ten

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

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

Answer 3

Set KeyPreview = True na formularzu i dodaj następujący kod do wydarzenia przyciśnięcie tego formularza:

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;