Ver Mensaje Individual
  #6  
Antiguo 19-07-2007
emeceuy emeceuy is offline
Miembro
 
Registrado: jun 2003
Ubicación: Uruguay
Posts: 122
Reputación: 22
emeceuy Va por buen camino
no me funciona :(

he probado y no me funciona... es como si fuera un bucle comun y corriente, porque muestra a la label1 incrementandose muy rapidamente, pero no puedo destildar la casilla de verificacion, ni apretar el boton, ni nada...

les dejo el codigo con el que probé

Código Delphi [-]
procedure FRECUENCIA(numero:integer);
begin
   form1.label1.caption:=inttostr(numero);
   form1.Refresh;
end;

procedure TForm1.Button1Click(Sender: TObject);
label continuo;
var numero:integer;
begin
numero:=0;
continuo:
   begin
      numero:=numero+1;
      FRECUENCIA(numero);
      if checkbox1.checked then Goto continuo
   end;
end;
__________________
Marcelo C.
Responder Con Cita