delphi中的pagecontrol用法,怎样点击一个page后激发
Posted
tags:
篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了delphi中的pagecontrol用法,怎样点击一个page后激发相关的知识,希望对你有一定的参考价值。
delphi中的pagecontrol用法,怎样点击一个page后就执行一个代码?
‘点击一个page后激发’这个事件在哪?没有的话那个能代替这个事件?
我想点击一个page后自动执行一个代码,不知道在哪设置事件,望大虾们指点一二,谢谢。
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标签