FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
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.. |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
|