<html>
<head>
<meta content="text/html; charset=ISO-8859-1"
http-equiv="Content-Type">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<div class="moz-cite-prefix">Perfecto José, Gracias!<br>
<br>
Saludos,<br>
Daniel Cáceres<br>
<br>
El 11/10/2012 9:36, Jose Daboin escribió:<br>
</div>
<blockquote
cite="mid:CAAvkSmBtbP=PM_Q73ZZXXjTrrDF1pveLxebQrChabU-5uzPx1Q@mail.gmail.com"
type="cite">Disculpa, al final no seria =10 en el if o el
condicional, seria al llegar a 0cero que se pare el timmer,
corrijelo<br>
<br>
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>
<div class="gmail_quote">El 11 de octubre de 2012 08:03, Jose
Daboin <span dir="ltr"><<a moz-do-not-send="true"
href="mailto:metalbox9000@gmail.com" target="_blank">metalbox9000@gmail.com</a>></span>
escribió:<br>
<blockquote class="gmail_quote" style="margin:0 0 0
.8ex;border-left:1px #ccc solid;padding-left:1ex">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=0 then//para el timer y deja el edit en 1 o 0 no lo he
probado<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
moz-do-not-send="true"
href="mailto:daniel@serviceparaguay.com" target="_blank">daniel@serviceparaguay.com</a>></span>
escribió:
<div>
<div class="h5"><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>
<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
moz-do-not-send="true"
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 moz-do-not-send="true"
href="mailto:Lazarus-es@lists.lazarus.freepascal.org"
target="_blank">Lazarus-es@lists.lazarus.freepascal.org</a><br>
<a moz-do-not-send="true"
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><span
style="padding-right:16px;width:16px;min-height:16px"></span><br>
</blockquote>
</div>
<br>
<br clear="all">
<br>
-- <br>
<span><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 moz-do-not-send="true" href="mailto:Lazarus-es@lists.lazarus.freepascal.org" target="_blank">Lazarus-es@lists.lazarus.freepascal.org</a>
<a moz-do-not-send="true" 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>
</pre>
</blockquote>
<br>
</div>
</div>
</div>
<br>
_______________________________________________<br>
Lazarus-es mailing list<br>
<a moz-do-not-send="true"
href="mailto:Lazarus-es@lists.lazarus.freepascal.org"
target="_blank">Lazarus-es@lists.lazarus.freepascal.org</a><br>
<a moz-do-not-send="true"
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>
<br>
</blockquote>
</div>
</div>
</div>
<span class="HOEnZb"><font color="#888888"><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>
</font></span></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>
<br>
<fieldset class="mimeAttachmentHeader"></fieldset>
<br>
<pre wrap="">_______________________________________________
Lazarus-es mailing list
<a class="moz-txt-link-abbreviated" href="mailto:Lazarus-es@lists.lazarus.freepascal.org">Lazarus-es@lists.lazarus.freepascal.org</a>
<a class="moz-txt-link-freetext" href="http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es">http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es</a>
</pre>
</blockquote>
<br>
</body>
</html>