delphi – 在TPageControl的每个Ttabsheet中绘制一个关闭按钮

发布时间：2020-12-15 09:17:07 所属栏目：大数据来源：网络整理

导读：我想在PageControl上实现一个关闭按钮,我也读过这个问题 How to implement a close button for a TTabsheet of a TPageControl 问题是我无法弄清楚如何实现Ulrichb答案中提供的代码……他们是否正在构建TPageControl的新组件后代？如果有人能解释在哪里写某

我想在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;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!