FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Haber tu trabajas en delphi no?
Tu haz esto en un boton y pon un label en el form. procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin for i:= 0 to 50 do begin label1.caption := inttostr(i); sleep(1000);//te pongo el sleep para que veas el label como incrementa a poco a poco.Tu szacalo si quieres repaint; end; end; A ver si funciona |
|
|
|