Disabilita il segnale acustico di sistema su TSpinEdit quando si preme Invio

Question

Ho un pulsante predefinito su un modulo che ha un controllo TSpinEdit su di esso. Quando il controllo TSpinEdit ha lo stato attivo e l'utente preme il tasto Invio, invece del pulsante predefinito che viene cliccato, l'utente sente solo un segnale acustico di sistema perché il tasto Invio non è valido per un TSpinEdit.

Normalmente, per evitare il segnale acustico, vorrei utilizzare l'evento OnKeyPress e impostare Key := 0 per saltare la pressione del tasto. Potrei quindi eseguire il metodo click sul pulsante predefinito. Tuttavia, in questo caso, OnKeyPress non si attiva perché il tasto Invio non è valido.

OnKeyDown si attiva, ma quando si imposta Key := 0 lì, non si ferma il segnale acustico di sistema.

Quindi, come disattivare il segnale acustico di sistema quando si preme il tasto Invio su un controllo TSpinEdit?

Sono su Delphi 5 e non hanno incluso la fonte per Spin.pas.

Answer 1

Dovete scendere dal TSpinEdit e ignorare IsValidChar per evitare la chiamata MessageBeep o KeyPress per evitare IsValidChar.

Answer 2

provare questo

//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 sul modulo e aggiungere il seguente codice all'evento pressione di un tasto del form:

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;