apresentar em minutos de execucao em um label

Delphi

05/09/2003

olá, como faco para em um label,. aparecer horas minutos e segundos de um projeto aberto?
MUITO OBRIGADO
TCHAU!!!


Reynaldo Giane

Reynaldo Giane

Curtidas 0

Respostas

Koplin

Koplin

05/09/2003

Nunca fiz, mas acho que pode ser uma base para voce.

Crie uma variável pública T:TTime no 1º form que é criado e no
No evento OnCreate deste form faça:

t:=now;

Depois no from principal coloque um TTimer e em seu evento OnTimer façça:

Label1.Caption:= TimeToStr(primeiroform.T-now);

onde <<primeiroform>> é onde voce declarou a variavel.


GOSTEI 0
Koplin

Koplin

05/09/2003

Nunca fiz, mas acho que pode ser uma base para voce. Crie uma variável pública T:TTime no 1º form que é criado e no No evento OnCreate deste form faça: t:=now; Depois no from principal coloque um TTimer e em seu evento OnTimer façça: Label1.Caption:= TimeToStr(primeiroform.T-now); onde <<primeiroform>> é onde voce declarou a variavel.



Não querendo ser supérfluo, não esqueça de declarar o <<primeiroform>> na clausula uses do form onde será feito o monitoramento.


GOSTEI 0
POSTAR