asterisco (*) en keydown o keypress

[pborges36]

Holas. Creo que esta pregunta es simple, solo que no le encuentro la vuelta.
La idea es que en un TEdit el usuario carga codigo de producto. Pero antes de cargar el codigo carge la cantidad ingresando el numero seguido de *.
Poe ejemplo: 2*.
hice lo siguiente:

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

el problema es que al salir del evento, en el codigoproducto solo queda el *, deberia quedar vacio.

Tambien intente hacerlo en el keypress.
pero en:

Código Delphi [-]
if key='*' then
  begin 
 
  end;

cualquiera sea la tecla presionada, siempre entraba al if.
creo que la mejor opcion es el keydown, pero como hago para dejar el TEdit vacio?
Gracias. Saludos.

[pjmedina]

No te vale poniendo la propiedad del edit, PasswordChar='*'

[*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

[Neftali [Germán.Estévez]]

Prueba poniendo esto en el KeyPress.

Código Delphi [-]
  if key='*' then begin
    key:=#0;
    cantidadproducto.Text:=codigoproducto.text;
    codigoproducto.Text:='';
  end;

EDITO: Se me adelantó Caro.
Supongo que utiliza el 106, porque quiere detectar el * del teclado numérico (que ese sí el el 106).
Con la solución propuesta detectarás los dos *'s.

[[duilioisola]]

Yo creo que deberías poner todo en el evento OnChange.

Código Delphi [-]
procedure TForm1.Edit1(Sender: TObject);
var
   cantidad : integer;
begin
   // Si hay u *
   if (pos('*',Edit1.Text) > 0) then
   begin
      // Obtengo el numero entre la posicion 1 y el *
      cantidad := StrToIntDef(copy(Edit1.Text,1,Length(Edit1.Text)-1))
      Edti1.Clear;
   end;
end;

[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.