Cuando undo enter me suena un pito
 

Cuando Presiono la tecla enter para salir del control me suena un pito este es el codigo q tengo.


procedure TForm1.cxCurrencyEdit1KeyPress(Sender: TObject; var Key: Char);
begin
if (key=#13) then
perform(WM_NEXTDLGCTL,0,0);
end;

Como hacer para q no suene

Gracias....................

:d

Tienes que colocar key:=#0 antes del perform

Salu2