![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
![]() |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Mira este ejemplo explica algo
unit Unit1;
interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TFPrincipal = class(TForm) EContador: TLabel; procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; type Tcontador= class(TThread) dwTiempo ![]() iSegundos:integer; Etiqueta:Tlabel; constructor Create; reintroduce ; overload ; procedure execute; override; procedure ActualizarPantalla; end; var FPrincipal: TFPrincipal; Contador:Tcontador; implementation {$R *.dfm} { Tcontador } procedure Tcontador.ActualizarPantalla; begin Etiqueta.Caption:=IntToStr(iSegundos); end; constructor Tcontador.Create; begin inherited Create(True);//lamamos al constructor padre (TThread) dwTiempo:=GetTickCount; iSegundos:=0; end; procedure Tcontador.execute; begin inherited; //CONTAMOS HASTA 10SEGUNDOS while iSegundos<10 do //¿an pasado 1000 milisegundos? if GetTickCount - dwTiempo>1000 then begin //incrementamos el contador de segundos y actualizamos la etiqueta Inc(iSegundos); Synchronize(ActualizarPantalla); //Etiqueta.Caption:=IntToStr(iSegundos); dwTiempo:=GetTickCount; end; end; procedure TFPrincipal.FormCreate(Sender: TObject); begin Contador:=Tcontador.Create(True); Contador.Etiqueta:=EContador; Contador.FreeOnTerminate :=True; Contador.Resume; end; end. |
#2
|
|||
|
|||
por cierto el formulario se llama FPrincipal y se coloco en el un label que se llama EContador
|
![]() |
|
|
![]() |
||||
Tema | Autor | Foro | Respuestas | Último mensaje |
como crear hilos de ejecucion en delphi 2007 | pablopessoa | Varios | 1 | 23-10-2008 19:11:08 |
Ayuda Con Hilos(Threds) | juangiron | OOP | 1 | 04-05-2007 19:46:24 |
Aplicacion con varios Hilos de Ejecución | samantha jones | Varios | 1 | 02-03-2005 17:27:24 |
Hilos de ejecucion | el toluca | Varios | 2 | 29-06-2004 22:59:04 |
![]() |
|