如何在Delphi中为TPageControl的每个TabSheet绘制并添加一个关闭按钮实现页面切换？
- 内容介绍
- 文章标签
- 相关推荐
本文共计409个文字，预计阅读时间需要2分钟。
我想在PageControl上实现一个关闭按钮，我也读过这个问题How to implement a close button for a TTabSheet of a TPageControl的讨论。问题是，我无法理解如何实现Ulrichb提供的代码。他们的结构是否正确？
我想在PageControl上实现一个关闭按钮,我也读过这个问题 How to implement a close button for a TTabsheet of a TPageControl问题是我无法弄清楚如何实现Ulrichb答案中提供的代码……他们是否正在构建TPageControl的新组件后代？如果有人能解释在哪里写某些代码我会感激不尽！我有一位老师,在我的学校知道一点点德尔福,但他无法帮助我……如果这是一个愚蠢的问题,我很抱歉,但我是delphi和编程的新手. 您链接到的问题中的代码不会创建新组件.相反,它通过使用页面控件的事件来实现自定义绘图.特别是这些事件：
> OnDrawTab
> OnMouseDown
> OnMouseMove
> OnMouseLeave
> OnMouseUp
您必须使用Delphi表单设计器将这些事件处理程序连接到匹配事件以使代码工作.
在回答这个问题时,这种方法可能是为了简单而选择的,但它不能扩展到具有许多具有页面控件的表单的应用程序.在这种情况下,您可能希望派生一个新的页面控件组件.
如果您这样做,而不是使用事件,则需要覆盖以下方法：
> DrawTab
> MouseDown
> MouseMove
> MouseUp
除此之外,您还必须复制OnMouseLeave行为.这需要一个消息处理程序.
procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE; .... procedure TMyPageControl.CMMouseLeave(var Message: TMessage); begin inherited; if Message.LParam=0 then begin // move OnMouseLeave code here end; end;
本文共计409个文字，预计阅读时间需要2分钟。
我想在PageControl上实现一个关闭按钮，我也读过这个问题How to implement a close button for a TTabSheet of a TPageControl的讨论。问题是，我无法理解如何实现Ulrichb提供的代码。他们的结构是否正确？
我想在PageControl上实现一个关闭按钮,我也读过这个问题 How to implement a close button for a TTabsheet of a TPageControl问题是我无法弄清楚如何实现Ulrichb答案中提供的代码……他们是否正在构建TPageControl的新组件后代？如果有人能解释在哪里写某些代码我会感激不尽！我有一位老师,在我的学校知道一点点德尔福,但他无法帮助我……如果这是一个愚蠢的问题,我很抱歉,但我是delphi和编程的新手. 您链接到的问题中的代码不会创建新组件.相反,它通过使用页面控件的事件来实现自定义绘图.特别是这些事件：
> OnDrawTab
> OnMouseDown
> OnMouseMove
> OnMouseLeave
> OnMouseUp
您必须使用Delphi表单设计器将这些事件处理程序连接到匹配事件以使代码工作.
在回答这个问题时,这种方法可能是为了简单而选择的,但它不能扩展到具有许多具有页面控件的表单的应用程序.在这种情况下,您可能希望派生一个新的页面控件组件.
如果您这样做,而不是使用事件,则需要覆盖以下方法：
> DrawTab
> MouseDown
> MouseMove
> MouseUp
除此之外,您还必须复制OnMouseLeave行为.这需要一个消息处理程序.
procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE; .... procedure TMyPageControl.CMMouseLeave(var Message: TMessage); begin inherited; if Message.LParam=0 then begin // move OnMouseLeave code here end; end;