如何解决如何设置TPageControl的当前页面?
| 我正在使用页面控件组件,我需要添加一个按钮并单击它以转到指定页面。 我该怎么做?解决方法
将一个按钮添加到窗体,并编写一个OnClick事件处理程序,如下所示:
procedure TMyForm.Button1Click(Sender: TObject);
begin
PageControl1.ActivePage := TabSheet1;
end;
,您可以使用ActivePageIndex:
procedure TForm1.Button1Click(Sender: TObject);
begin
PageControl1.ActivePageIndex := 0;
end;
,我可以补充一下,您无法在OnChange事件中设置活动页面(我尝试了很长时间!)。必须在OnChanging事件中完成所有需要的检查,然后相应地将Allowchange var设置为true或false:
procedure Tfrm_AspireParams.PC_OptionsChanging(Sender: TObject;
var AllowChange: Boolean);
begin
AllowChange := true;
if fActivated then
begin
if BBtn_Timesheets_Save.Enabled then // They have not saved changes on this tab.
begin
messagedlg(\'Please save the page first\',mtInformation,[mbOK],0);
AllowChange := False;
end;
end;
end;
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。