Delphi XE3,获取当前Tabsheet的名称

时间:2014-07-26 16:29:03

标签: delphi printing

我有多个页面控件,有多个标签页。我在每个标签页上都有用户可以打印的图表。我想在工具栏面板上有一个“打印”按钮。我想要一个“打印”按钮打印活动标签页上的图形,我需要一种方法来判断哪个标签页是活动的。我知道基于标签页名称的图表名称。这样我就可以告诉“打印”按钮打印图表而不在每个标签页上放置“打印”按钮。

在伪代码中我想要以下

如果活动标签页等于'今天'则打印今日图;

1 个答案:

答案 0 :(得分:3)

标签页由TPageControl组合在一起。它具有属性ActivePage,表示当前有效的TabSheet或nil。如果不是nil,您可以使用MyPageControl.ActivePage.Caption获取页面名称(即标签页)。

例子在Delphi在线帮助中给出,例如: this page