Como Visualizar un reloj dentro de una ficha
Hola foro, una consulta , como puedo hacer para visualizar el reloj de windows en forma constante dentro de una ficha .
yo intente esto:
Cree una variable privada tipo boolean
Private
swith :Boolean;
En el evento oncreate del form hice:
Swith :=True;
En el evento onActive del form hice:
while Swith =True do
Begin
lblFecha.caption=timeToStr(Time);
Application.ProcessMessages
end;
Al ejecutar el programa ,visulizo la hora , pero me bloquea las opciones que posee el formulario, Existe alguna otra manera de lograr imprimir la hora o derrepente algun componente que pueda utilizar.
Gracias de antemano.
|