Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 24-11-2016
yuyidt yuyidt is offline
Miembro
NULL
 
Registrado: oct 2016
Posts: 40
Poder: 0
yuyidt Va por buen camino
Question Detener timer de form1 cuando se abre el form2

Hola buenos días.
Resulta que tengo un form1 en el cual se esta ejecutando un timer,
Tengo un form2 donde se ejecuta otro timer diferente.
Lo que quiero es que si estoy en el form 1 y paso al form2. entonces que se detenga el timer del form1.

He probado el siguiente código en el evento onshow y también en onactivate del form2 pero igual no me funciona: Form1.timer1.enabled:=false;
Responder Con Cita
  #2  
Antiguo 24-11-2016
Avatar de movorack
[movorack] movorack is offline
Miguel A. Valero
 
Registrado: feb 2007
Ubicación: Bogotá - Colombia
Posts: 1.346
Poder: 20
movorack Va camino a la famamovorack Va camino a la fama
Hola.

Con el OnAativate debería funcionar.

Compartenos el código que usa para que así pueda ser mas fácil ayudar.
__________________
Buena caza y buen remar... http://mivaler.blogspot.com
Responder Con Cita
  #3  
Antiguo 24-11-2016
yuyidt yuyidt is offline
Miembro
NULL
 
Registrado: oct 2016
Posts: 40
Poder: 0
yuyidt Va por buen camino
Hola

// form1 //

var
segundos: integer

procedure TForm1.FormCreate(Sender: TObject);
begin
timer1.Enabled:=true; //Ejecuto el timer//
end;

procedure TForm1.FormShow(Sender: Object);
begin
segundos:=10; //valor de la variable segundos
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
segundos:=segundos-1;
label1.caption:=IntToStr(segundos); //label donde se muestran los segundos
if segundos=0then
begin
quitavidas;
segundos:=10;
end;

// Form2 // lo he probado en este evento y no lo detiene

procedure TForm2.FormActivate(Sender: Object);
begin
form1.timer1.enabled:=false;
end;

// Form2 // también lo he probado en este evento y no lo detiene

procedure TForm2.FormShow(Sender: Object);
begin
form1.timer1.enabled:=false;
end;
Responder Con Cita
  #4  
Antiguo 25-11-2016
Avatar de ElKurgan
[ElKurgan] ElKurgan is offline
Miembro Premium
 
Registrado: nov 2005
Posts: 1.232
Poder: 20
ElKurgan Va camino a la fama
He probado tu código con el form2.Show y funciona perfectamente.

O falta algo más que no has puesto, y que es el que está interfiriendo en el funcionamiento normal, o de otra forma debería ejecutarse sin problemas

Saludos
Responder Con Cita
  #5  
Antiguo 25-11-2016
yuyidt yuyidt is offline
Miembro
NULL
 
Registrado: oct 2016
Posts: 40
Poder: 0
yuyidt Va por buen camino
Gracias

La verdad que ayer volví a probar y si funciono. No se porque antes no quiso. Gracias por sus respuestas.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Ejecutar método de Form1 en Form2 JM1985 C++ Builder 11 29-10-2013 23:14:30
abrir form2 dentro del form1 darkbits Varios 5 10-08-2013 17:51:47
acceder al form1 desde el form2. petete2008 OOP 2 08-02-2012 21:29:59
Problemas con Form2.Parent=Form1; Duc Varios 5 07-04-2009 19:34:41
form2 cerrar el form1 ingabraham Varios 6 07-01-2009 20:11:13


La franja horaria es GMT +2. Ahora son las 13:16:58.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi