Aplica lo mismo<br><br>var //Variables Globales Del unit<br> a:integer; //colocas "a" o lo que quieras como integer<br><br>En el formcreate o el evento oncreate del formulario como quieres es descontar lo igualas a 10 o lo que quieras<br>
<br>a:=10<br><br>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<br><br>var b:integer;//variable dentro del timmer<br>begin //begin del timer<br>
b:=1;<br> a:=a-b;<br> edit3.Text:='';<br> edit3.Text:=IntToStr(a);<br> if a=10 then//para el timer y deja el edit en 1 o 0<br> timer1.Enabled:=false; <br><br><br><div class="gmail_quote">El 11 de octubre de 2012 06:25, Daniel Cáceres <span dir="ltr"><<a href="mailto:daniel@serviceparaguay.com" target="_blank">daniel@serviceparaguay.com</a>></span> escribió:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div bgcolor="#FFFFFF" text="#000000">
<div>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,<br>
ej. si inicio en 10 segundos, quiero poner un label y que vaya
tomando y mostrando esos valores 10, 9, 8, 7... y asi<br>
<br>
Saludos,<br>
Daniel C.-<br>
<br>
El 10/10/2012 20:16, Jose Daboin escribió:<br>
</div><div><div class="h5">
<blockquote type="cite">Si te entendi lo que quieres es contar el tiempo del
timmer<br>
<br>
Yo lo haria asi<br>
<br>
var //Variable Global<br>
a:integer; <br>
<br>
La igualo a cero en el formcreate<br>
<br>
y en el timmer<br>
<br>
var b:integer;<br>
begin<br>
b:=1;<br>
a:=b+a;<br>
edit3.Text:='';<br>
edit3.Text:=IntToStr(a);<br>
if a=10 then<br>
timer1.Enabled:=false; <br>
<br>
No se si eso es lo que quieres<br>
<br>
<div class="gmail_quote">El 10 de octubre de 2012 16:10, Daniel
Cáceres <span dir="ltr"><<a href="mailto:daniel@serviceparaguay.com" target="_blank">daniel@serviceparaguay.com</a>></span>
escribió:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Buenas, una
consulta es posible obtener el valor que va tomando el TTIMER?<br>
<br>
Saludos Cordiales,<br>
Daniel Cáceres<br>
<br>
_______________________________________________<br>
Lazarus-es mailing list<br>
<a href="mailto:Lazarus-es@lists.lazarus.freepascal.org" target="_blank">Lazarus-es@lists.lazarus.freepascal.org</a><br>
<a href="http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es" target="_blank">http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es</a><span onmouseout="cancel = false; window.setTimeout(WRCHideContent, 1000); clearTimeout(showTimer);" onmouseover=" var self = this; showTimer = window.setTimeout(function(){WRCShowContent({'rating':{'value':-1,'weight':0},'flags':{},'single':true,'ttl':7200,'expireTime':'20121011095612'}, self.className)},600);" class="wrc0" style="padding-right:16px;width:16px;height:16px"></span><span style="padding-right:16px;width:16px;min-height:16px"></span><br>
</blockquote>
</div>
<br>
<br clear="all">
<br>
-- <br>
<span style><font><span style="color:rgb(0,0,153)"><i><b>Saludos.<br>
<br>
Jose Daboin</b></i></span></font></span><br>
<br>
<br>
<fieldset></fieldset>
<br>
<pre>_______________________________________________
Lazarus-es mailing list
<a href="mailto:Lazarus-es@lists.lazarus.freepascal.org" target="_blank">Lazarus-es@lists.lazarus.freepascal.org</a>
<a href="http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es" target="_blank">http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es</a><span onmouseout="cancel = false; window.setTimeout(WRCHideContent, 1000); clearTimeout(showTimer);" onmouseover=" var self = this; showTimer = window.setTimeout(function(){WRCShowContent({'rating':{'value':-1,'weight':0},'flags':{},'single':true,'ttl':7200,'expireTime':'20121011095612'}, self.className)},600);" class="wrc0" style="padding-right:16px;width:16px;height:16px"></span>
</pre>
</blockquote>
<br>
</div></div></div>
<br>_______________________________________________<br>
Lazarus-es mailing list<br>
<a href="mailto:Lazarus-es@lists.lazarus.freepascal.org">Lazarus-es@lists.lazarus.freepascal.org</a><br>
<a href="http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es" target="_blank">http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es</a><span onmouseout="cancel = false; window.setTimeout(WRCHideContent, 1000); clearTimeout(showTimer);" onmouseover=" var self = this; showTimer = window.setTimeout(function(){WRCShowContent({'rating':{'value':-1,'weight':0},'flags':{},'single':true,'ttl':7200,'expireTime':'20121011095612'}, self.className)},600);" class="wrc0" style="padding-right:16px;width:16px;height:16px"></span><br>
<br></blockquote></div><br><br clear="all"><br>-- <br><span style="background-color:rgb(255,255,255)"><font><span style="color:rgb(0,0,153)"><i><b>Saludos.<br><br>Jose Daboin</b></i></span></font></span><br><br>