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