OnKeyPress de un TEdit

[nosferatu177]

Empezado por luxus

Hola tengo una pequeña duda que no sé porque ahora no me funciona.
Vamos a ver. Tengo un TEdit y en el evento OnKeyPress tengo el siguiente código fuente:

Código Delphi [-]
procedure TFAnadir.Edit2KeyPress(Sender: TObject; var Key: Char);
var
  uni,precio,sub: real;
begin
  if (key=#13) then
  begin
   showmessage('key press');
   uni:=StrToFloat(FAnadir.Edit2.Text);
   precio:=StrToFloat(FAnadir.Edit3.Text);
   sub:=uni*precio;
   FAnadir.Edit5.Text:=FloatToStr(sub);
  end;
end;

Cuando ejecuto la aplicación al introducir el nº de unidades y luego pulsar ENTER no sale nada.Es más, ni siquiera entra
en el bucle con lo que no me muestra el mensaje ('key press') que he puesto como verificación.
La verdad es que no sé donde está el error. A ver si con vuestra ayuda lo resuelvo.
Gracias

Editado por jhonny para colocar etiquetas Delphi

Por si te ayuda en algo y si no para aquellos q les ocurra algo parecido

intentalo asi:
if key in [#13] then
begin
....
end;

[Paoti]

si funciona, lo he probado con el turbo delphi y esta funcionando.

no sé que pueda pasar.

¿tienes algo programado en los demás eventos de la caja de texto?

Código Delphi [-]
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if (key=#13) then
  begin
   ShowMessage('ahora que pasa');
   Caption := 'Entro en el Enter';
   Button1.Caption := 'Entro en el enter';
  end;
end;

[nosferatu177]

Empezado por Paoti

si funciona, lo he probado con el turbo delphi y esta funcionando.

no sé que pueda pasar.

¿tienes algo programado en los demás eventos de la caja de texto?

Código Delphi [-]procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if (key=#13) then begin ShowMessage('ahora que pasa'); Caption := 'Entro en el Enter'; Button1.Caption := 'Entro en el enter'; end; end;

si; es asi: (y me funciona correctamente en delphi 7)

if not (Key in ['0'..'9','.', #8, #13]) then
Key := #0; //solo acepte esas teclas
if key in ['.'] then //si la q se presiono es "punto"
begin
if (cadena<='0') or (cadena >='255') then
begin
mensaje('El número debe de estar entre....!');
edit1.Text:='';
edit.SetFocus;
end;
cadena:='';
end
else
begin
cadena:=cadena+key;
end;


Espero te funcione