关于Delphi的PageControl使用问题！

在TabSheet1上放置button2，TabSheet2上放置button1。one和two都是全局变量！然后在TabSheet SHOW时间中就可以实现了！

procedure TForm1.TabSheet1Show(Sender: TObject);
begin
if one then
begin
ShowMessage('1');//换成你刷新数据的动作
one:=false;
end;
end;

procedure TForm1.TabSheet2Show(Sender: TObject);
begin
if two then
begin
ShowMessage('2');//换成你刷新数据的动作
two:=false;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
one := true;
two := false;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
one := false;
two := false;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
two := true;
one := false;
end;

调用f1所在的Sheet的Show事件，在Show事件里面调用Button事件
procedure TForm1.TabSheet1Show(Sender: TObject);
begin
//在这里调用刷新事件
end;

在 P1 的 OnEnter 事件里面写代码.

begin
b1.click;
end;

在button的事件里面加入如下过程
for循环遍历每个tabsheet，判断是不是要进行更新的页面，如果是，则调用当前页面的按钮过 程