[Lazarus-es] TTimer

[Jose Daboin]

Aplica lo mismo

var //Variables Globales Del unit
  a:integer;  //colocas "a" o lo que quieras como integer

En el formcreate o el evento oncreate del formulario como quieres es
descontar lo igualas a 10 o lo que quieras

a:=10

y en el timmer// como vas a descontar en vez de sumar restas y cambias los
edit por label. Prueba con los dos ejemplos q deje

var b:integer;//variable dentro del timmer
begin //begin del timer
  b:=1;
  a:=a-b;
  edit3.Text:='';
  edit3.Text:=IntToStr(a);
  if a=10 then//para el timer y deja el edit en 1 o 0
  timer1.Enabled:=false;


El 11 de octubre de 2012 06:25, Daniel Cáceres
<daniel en serviceparaguay.com>escribió:

>  Gracias Jose, como no estoy muy metido todavia con Lazarus y Pascal,
> queria saber si el TTimer tenia alguna propiedad o funcion para mostrar el
> valor que va tomando,
> ej. si inicio en 10 segundos, quiero poner un label y que vaya tomando y
> mostrando esos valores 10, 9, 8, 7... y asi
>
> Saludos,
> Daniel C.-
>
> El 10/10/2012 20:16, Jose Daboin escribió:
>
> Si te entendi lo que quieres es contar el tiempo del timmer
>
> Yo lo haria asi
>
> var //Variable Global
>   a:integer;
>
> La igualo a cero en el formcreate
>
> y en el timmer
>
> var b:integer;
> begin
>   b:=1;
>   a:=b+a;
>   edit3.Text:='';
>   edit3.Text:=IntToStr(a);
>   if a=10 then
>   timer1.Enabled:=false;
>
> No se si eso es lo que quieres
>
> El 10 de octubre de 2012 16:10, Daniel Cáceres <daniel en serviceparaguay.com
> > escribió:
>
>> Buenas, una consulta es posible obtener el valor que va tomando el TTIMER?
>>
>> Saludos Cordiales,
>> Daniel Cáceres
>>
>> _______________________________________________
>> Lazarus-es mailing list
>> Lazarus-es en lists.lazarus.freepascal.org
>> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es
>>
>
>
>
> --
> *Saludos.
>
> Jose Daboin*
>
>
>
> _______________________________________________
> Lazarus-es mailing listLazarus-es en lists.lazarus.freepascal.orghttp://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es
>
>
>
> _______________________________________________
> Lazarus-es mailing list
> Lazarus-es en lists.lazarus.freepascal.org
> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es
>
>


-- 
*Saludos.

Jose Daboin*
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus-es/attachments/20121011/d608d052/attachment-0002.html>