Ver Mensaje Individual
  #2  
Antiguo 30-04-2014
atani123 atani123 is offline
Miembro
 
Registrado: jul 2006
Posts: 63
Reputación: 18
atani123 Va por buen camino
Por lo que cuentas parece que a la segunda pantalla la llamas mediante un showmodal.

Yo realmente en este caso utilizaria un show (sin el modal). Asi podras ver online el conteo que dices. Sino quieres verlo todo el rato puedes hacer algo como esto.

Quitando los errores esta es la idea (visible durante 10 seg, cada 5 min)

Nota: Si no quieres tener problemas de visualizacion haz que el form2 sea "StayOnTop"

begin
...
...
tmrTimer1.interval := 300000 (5 min)
tmrTimer1.enabled := true;
...
...
...
end;


procedure OnTimer1;
begin
tmrTimer1.enabled := false;
if (form2 = nil) then
form2 := TForm2.Create( Application);

form2.show;
tmrTimer2.interval := 10000 (10 segs)
tmrTimer2.enabled := true;
end;

procedure OnTimer2;
begin
tmrTimer2.enabled := false;
if not (form2 = nil) then
form2.hide;

tmrTimer1.enabled := true;
end;
Responder Con Cita