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