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