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..

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.

Código Delphi [-]
  else begin
    Timer1.Enabled := False;
    ShowMessage('mensaje');
    ..
  end;

Notas la diferencia con el uso de la etiqueta?

Hasta luego.

;)

Muchas gracias....
Luego miraré lo de la etiqueta delphi...
Un saludo..