Ver Mensaje Individual
  #2  
Antiguo 27-05-2006
Avatar de marcoszorrilla
marcoszorrilla marcoszorrilla is offline
Capo
 
Registrado: may 2003
Ubicación: Cantabria - España
Posts: 11.221
Reputación: 10
marcoszorrilla Va por buen camino
Suponiendo que utilices un Tedit, pon el código pertinente en el evento OnKeyDown:

Código Delphi [-]
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if key = 13 then
   showMessage('Pulsó Enter');
end;

De todas maneras te recomiendo en las conversiones utilizar un:
Código Delphi [-]
Try
a:=StrToInt(LabeledEdit1.Text);
Except
ShowMessage('Formato de número incorrecto.');
end;
Ya que pueden teclear algún caracter no apto para ser convertido y te arrojaría una excepción.

Un Saludo.
__________________
Guía de Estilo de los Foros
Cita:
- Ça c'est la caisse. Le mouton que tu veux est dedans.
Responder Con Cita