莫名其妙的问题! (100分)

代码如下:
procedure TForm1.TabSheet1Show(Sender: TObject);
begin
timer1.Enabled:=true;
end;

procedure TForm1.TabSheet1Hide(Sender: TObject);
begin

timer1.Enabled:=False;
end;

procedure TForm1.TabSheet2Hide(Sender: TObject);
begin
timer1.Enabled:=False;
end;

procedure TForm1.TabSheet2Show(Sender: TObject);
begin
timer1.Enabled:=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
showmessage('Timer1 Refresh!');
end;

开始激活的为Tabsheet1页,timer1能够自动刷新,莫名其妙的问题是翻到Tabsheet2页
后timer1竟然停止自动刷新?
请各位大侠帮我解忧!多谢!

tabsheet1 hide 后，timer 已经false掉了！！

事件执行顺序的问题，翻到第二页时
先执行TabSheet2Show，然后再执行TabSheet1hide
所以就.....

谢谢siyan!

不要谢，给分就行了，呵呵