FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Problemas con Ttimer ¡¡¡
Tengo dos paneles. En un panel hay Radiogroups y pretendo q si pasado un tiempo no los activa, salga un mensaje y salte a otro panel.
Este es el código: procedure TForm10.Timer1Timer(Sender: TObject); var salir: string; begin if (edit1.Text<>'0:00:10')AND(salir<>'si') then begin edit1.Text:= timetostr(now-hora_inicio); end else begin showmessage('Se acabo tu tiempo'); timer1.Enabled:=false; panel4.Visible:=false; edit1.text:='0:00:00'; panel5.Visible:=true; timer2.Enabled:=true; salir:='si'; end end; Pues bien, al hacer esto sale el mensaje de "se acabo tu tiempo", pero al pinchar ok, dicho mensaje no se quita. hay veces q si, pero otras tienes q darle varias veces. Al siguiente panel si q salta, pero no se pone a 0 el reloj. Una ayudita, please... Un saludo.. |
#2
|
||||
|
||||
Hola elbilla.
Para publicar trozos de código, te recomiendo el uso de la etiqueta [ delphi ], del que podes aprender en el mensaje inicial de este foro. Creo que lo que está fallando, es que desactivas el timer despues del showmessage, que no retorna hasta que el usuario presione ok. Si el usuario tarda mas del intervalo del timer, pues el evento se disparará por lo menos otra vez. Considero que basta invertir esas líneas para encontrar el comportamiento adecuado.
Notas la diferencia con el uso de la etiqueta? Hasta luego.
__________________
Juan Antonio Castillo Hernández (jachguate) Guía de Estilo | Etiqueta CODE | Búsca antes de preguntar | blog de jachguate |
#3
|
|||
|
|||
Muchas gracias....
Luego miraré lo de la etiqueta delphi... Un saludo.. |
|
|
|