求delphi中PageControl的使用方法? 关于Delphi的PageControl使用问题！

求delphi中PageControl的使用方法?

pagecontrol放不下窗体
一个窗体调其他窗体：
Tmain.button1.click()
begin
firstform:=Tfirstform.create(application)
firstform.showmodal
firstform.free
end

这里main是主窗体，按钮单击事件里调了第二个窗体

关于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