delphi中的pagecontrol用法，怎样点击一个page后激发

在PageControl.OnChange事件中，如，page变化时，在窗体的caption为页的caption.
procedure TFrmMain.PageControlChange(Sender: TObject);
begin
caption:= PageControl.ActivePage.Caption ;
end;
也可以在mouse进入页内容时用TabSheetEnter事件，如进入第10页时发生的事件：
procedure TFrmMain.TabSheet10Enter(Sender: TObject);
begin
with dm.ClientDataSet20 do //首先将团队基本信息数据表激活
begin
if Active then Active:=False;
ProviderName:='DSP_Group_BaseInfor';
Active:=True;
end;
end;
---------------------------------------------------------
回答完毕，以上是本人商业软件的一段小代码。也许对您有点帮助。
——————————————————————————————