ciclo infinito con enter.. como lo soluciono ?

[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