asterisco (*) en keydown o keypress

[pborges36]

Muchas gracias a todos. Probe la solucion de Caro y funciona a la perfeccion.

Empezado por Caro

Hola, el * no es el 106 (j) es el 42 (*)


Código Delphi [-]
procedure Tventa.codigoproductoKeyPress(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=#42 then
begin
key:=#0;
cantidadproducto.Text:=codigoproducto.text;
codigoproducto.Text:='';
end;





Saluditos

Gracias de nuevo.
Saludos.