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

Posted

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了delphi中的pagecontrol用法,怎样点击一个page后激发相关的知识,希望对你有一定的参考价值。

delphi中的pagecontrol用法,怎样点击一个page后就执行一个代码?
‘点击一个page后激发’这个事件在哪?没有的话那个能代替这个事件?
我想点击一个page后自动执行一个代码,不知道在哪设置事件,望大虾们指点一二,谢谢。

参考技术A 在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;
---------------------------------------------------------
回答完毕,以上是本人商业软件的一段小代码。也许对您有点帮助。
——————————————————————————————

delphi 7里怎么隐藏PageControl控件的tabsheet标签

Tabsheet1.tabvisible := False;

以上是关于delphi中的pagecontrol用法,怎样点击一个page后激发的主要内容,如果未能解决你的问题,请参考以下文章

如何减少 Delphi 中的 PageControl 闪烁?

delphi中如何让pagecontrol的tab宽度自适应

delphi PageControl这个控件怎么使用,我要做出2个Page,怎么

delphi 7里怎么隐藏PageControl控件的tabsheet标签

Delphi:RzPageControl(pagecontrol)实现多标签的动态添加,切换,关闭

怎样才能把delphi中memo中的内容保存为文本文件到“指定的路径下”