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

来源：百度知道 编辑：UC知道 时间：2024/09/20 07:35:29
delphi中的pagecontrol用法，怎样点击一个page后就执行一个代码？
‘点击一个page后激发’这个事件在哪？没有的话那个能代替这个事件？
我想点击一个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;
---------------------------------------------------------
回答完毕，以上是本人商业软件的一段小代码。也许对您有点帮助。
——————————————————————————————