问题标签 [tpagecontrol]

我将 TPageControl 样式设置为平面按钮 ( tsFlatButtons)，并使用事件更改选项卡的按钮颜色OnDrawTab。

它可以工作，但未激活的按钮有灰色（btnFace 颜色）边框！

知道如何解决这个问题吗？

我希望将上下文菜单添加到 TPageControl 的（只是）选项卡，与选项卡区域不同（例如，Delphi 提供文件/页面选项）。我知道我可以用 TRzPageControl 做到这一点，但是用 TPageControl 怎么可能呢？

• 因此，我有一个应用程序可以加载不同的插件并在 TPageControl 上为每个插件创建一个新选项卡。
• 每个 DLL 都有一个与之关联的 TForm。
• 这些表单是使用其父 hWnd 作为新的 TTabSheet 创建的。

• 由于 TTabSheets 就 VCL 而言不是表单的父级（不想使用动态 RTL，以及用其他语言制作的插件），我必须手动处理调整大小。我这样做如下：

  /li>

现在，我的问题是，当应用程序调整大小时，TGroupBoxes 中的所有 TGroupBoxes 和 TLabels 都会闪烁。不在 TGroupboxes 内的 TLabels 很好，不会闪烁。

我尝试过的事情：

• WM_SETREDRAW 后跟一个 RedrawWindow
• TGroupBoxes 和 TLabels 上的 ParentBackground 设置为 False
• 双缓冲：=真
• LockWindowUpdate（是的，即使我知道这是非常非常错误的）
• 透明 := False （甚至覆盖 create 来编辑 ControlState）

有任何想法吗？

使用此处提供的示例如何为 TPageControl 的 TTabsheet 实现关闭按钮，并结合将表单父级设置为带有匹配标题的选项卡表一个图像列表，就像您在当今的网络浏览器上看到的一样。

当我改变

到

OnMouse 事件不会在任何停靠的表单上获取，从而导致关闭按钮停止工作。

我想限制用户（基于特殊条件）在页面控件中打开或不打开选项卡。即，用户可以单击选项卡，但不会向他显示。相反，一条消息将向他显示“ he don't have the access right to see such tab”。

在什么事件上我应该编写检查代码，以及（TPageControl组件的）哪个选项卡属性将允许/阻止用户进入这样的选项卡？

我的表单上有一个 PageControl，我希望检测用户何时选择另一个选项卡。

我怎样才能做到这一点 ？我正在使用德尔福 7。

我没有发现任何事件，并且浪费时间开发我自己的页面控件并不是我打算做的。

我正在运行 Lazarus 0.9.30.2。

我有一个 TForm，上面有一个 TPageControl。在 TPageControl 中有一系列 TTabSheets。在运行时，TTabSheets 的顺序与设计时不同（见图）。

设计时的顺序是我想在运行时看到的，至少在表单第一次显示时是这样。为什么订单在运行时会发生变化，有没有办法控制它？

我有TPageControl一个TTabSheet。并且TTabSheet我有一堆功能和组件。我想在运行时通过一个按钮复制该选项卡表，其中所有功能和组件仍在其中并正常工作。

现在我设法复制了标签页。但是，新的标签页是完全空的。

这是我的那个按钮的代码。

我错过了什么？

至于 TTabSheets 内部的组件和功能，它们只是滚动框、编辑、按钮和面板。

我的主窗体的中心有一个页面控件（我的图像中的 form1），我想打开停靠在页面控件中的其他窗体。因为我的子表单上有很多控件，所以我需要垂直和水平滚动条（在子表单上我有活动滚动条选项处于活动状态），但这里有一个问题：当我使用 VCL 样式时，我的滚动条没有像它们一样绘制应该是，它们是不可用的。这是某种 VCL 样式的错误吗？

我想在 PageControl 上实现一个关闭按钮，我也读过这个问题How to implement a close button for a TTabsheet of a TPageControl
事情是我不知道如何实现 Ulrichb 的答案中提供的代码...他们是否构建了 TPageControl 的新组件后代？如果有人可以解释在哪里编写某些代码，我将不胜感激！我有一个在我学校知道一点德尔福的老师，但他帮不了我。如果这是一个愚蠢的问题，我很抱歉，但我是德尔福和编程的新手。