|
En efecto, se resuelve así, por si a alguien mas le sirve de ayuda
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = Char(VK_RETURN) then begin
Key := #0;
PostMessage(Handle, WM_NEXTDLGCTL, 0, 0);
end;
end;
va en el evento OnKeyPress, elimina el sonido y avanza al siguiente control.
Saludos!
__________________
"Aplica lo q sabes, no lo q crees saber"
|