Muchas gracias a todos. Probe la solucion de Caro y funciona a la perfeccion.
Cita:
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.