ciclo infinito con enter.. como lo soluciono ?

[Rofocale]

Código Delphi [-]
                agregar;
                Total;
                txtCodigo.Clear;
                txtDescripc.Clear;
                txtPrecio.Clear;
                txtCantidad.Clear;
                btnAgregar.Enabled := False;
                btnEliminar.Enabled := True;
                btnPagar.Enabled := true;
                txtcodigo.setfocus

bueno lo solucione quitando txtcodigo.setfocus eso producia el bucle infinito.. pero ahora como puedo hacer para que al agregar este me devuelva el focus al edit

osea pongo el codigo y apreto enter busca y pone el focus en el boton apreto enter llena el grid.. y aqui tiene que devolver el focus al edit... ya que no devuelve el focus al edit...


sugerencias?

[ecfisa]

Hola Rofocale.

En forma muy simplificada traté de reproducir la situación que creo haber entendido.
En la prueba no me provoca ciclo infinito, te pongo el código por si te da alguna idea o para que me aclares si te interpreté mal.

Código Delphi [-]
...
procedure TForm1.BuscarArticulo;
begin
  Panel1.Caption:= 'Buscar articulo';
  btn_Agrega.SetFocus;  // Foco en TButton
end;

procedure TForm1.AgregarArticulo;
begin
  Panel1.Caption:= 'Agregar articulo';
end;

procedure TForm1.btn_AgregaClick(Sender: TObject);
begin
  AgregarArticulo;
  txtcodigo.SetFocus;  // Foco en TEdit
end;

procedure TForm1.txtcodigoKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Key = VK_RETURN) then
    BuscarArticulo;
end;

Saludos.

[Rofocale]

Bueno asi lo tenia antes... ahora me di cuenta que si pongo este codigo

Código Delphi [-]
       If (Key = VK_Return) then
               begin
                  txtcodigo.Text:= (''+idciu+'');
                  BuscaArticulo;
                  codebusqgrid.Visible:=False;

en onkeyup, entonces ahi es el problema de que los datos permanecen en el edit con el foco en el boton otra ves...

en cambio si lo pongo en onkey down si funciona.. a que se debe ?

por otro lado tengo otro problema, ese mismo codigo en el evento onkeyup si funcionaba la parte de

Código Delphi [-]
codebusqgrid.Visible:=False;

que es un grid que muestro al teclear para autocompletar los datos.
cuando apretaba enter este grid desaparecia, ahora que he movido el codigo al evento onkeydown el grid no desaparece...

a que se debe ?

[luchifer]

Una vez trate de hacer un bucle infinito para un sorteo del cual debia salir cuando presionase una tecla, lamentablemente no pude y la mejor solucion que encontre fue la siguiente:

Código Delphi [-]
 
procedure TFsorteo.SpeedButton3Click(Sender: TObject);
var regis, contad:integer;
    sigue:boolean;
begin
   contad:=qconsulta.RecordCount;
   regis:=random(contad);
   if regis<1 then regis:=random(contad);
   qconsulta.First;
   contad:=1;
   sigue:=true;
   while sigue do
   begin
      qconsulta.Next;
      contad:=contad+1;
      if contad=regis then sigue:=false;
   end;
   dbg_clien.SetFocus;
end;

Encuentro un numero al azar comprendido entre el numero total de registros de la tabla y voy a dicho registro

[[Al González]]

Empezado por Rofocale

sugerencias?

Plantear con más calma, claridad y extensión las preguntas, mostrar partes más completas de tu código. Y, si no es mucho pedir, usar comas y acentos.

Todo eso ayudará a que te entendamos mejor. ¿Cuál es la prisa? Respira, redacta la duda como te sugiero, léela antes de enviarla para ver si no te faltó dar una pieza de información importante, y entonces la publicas. Así es más probable que el problema quede resuelto pronto.

Por ir de prisa llegarás en último lugar.

Un tranquilo saludo.

Al.