本文整理自网络,侵删。
可以通过设置baiPageControl1.TabIndex属性来达到du你的zhi目的.如: PageControl1.TabIndex := 0 将跳出到TabSheet1PageControl1.TabIndex := 1 将跳出TabSheet2...
procedure TForm1.Button1Click(Sender: TObject);begin//激活第一页面PageControl1.TabIndex := 0;end;
procedure TForm1.PageControl1Change(Sender: TObject);begin//显示被激活的页面数Caption:=IntToStr(PageControl1.ActivePage.TabIndex);end;
相关阅读 >>
Delphi stringgrid 实例5 本例功能:字体修改为居中,红色,20号
Delphi stringtowidestring widestringtostring
Delphi createprocesswithlogonw用法
Delphi 使用google translate实现tts
更多相关阅读请进入《Delphi》频道 >>