如何覆盖自定义 Firemonkey 控件的点击事件

Question

我正在尝试创建一个继承自 TListView 控件的自定义 Firemonkey 控件。我想向控件添加一些功能，当用户单击控件时会自动执行这些功能。因此，我的目标不是在我的控件表单上指定OnItemClick 方法，而是直接将功能添加到控件本身中。

我很难理解我需要做什么才能利用TListView 的点击处理程序。在我的脑海中，我想我的解决方案看起来类似于这个伪代码：

//somewhere in the base TListView code
void __fastcall TListView::ClickHandler()
{
    //logic for handling a click on the list view
}

//somewhere in my custom list view control
void __fastcall TMyListView::ClickHandler()
{ 
    TListView::ClickHandler(); //call base click handler so all the normal stuff happens

    //my additional logic goes here
}

但是，我似乎在文档中找不到任何关于我应该尝试覆盖什么方法，或者我应该如何处理这个问题的任何内容。

我确实找到了 this information 关于调用“点击事件”处理程序的信息。我设置了一个这样的简单示例：

void __fastcall TFmListView::Click()
{
    ShowMessage("This is the control's click");
}

这很好用，但是根据文档：

如果用户已将处理程序分配给控件的 OnClick 事件，则单击该控件会导致调用该方法。

因此，如果设置了控件的单击事件属性之一，我在控件的Click() 方法中放置的任何附加逻辑都将丢失。

扩展单击自定义控件时发生的功能的正确方法是什么？

Answer 1

这是一个适合您的 C++Builder 解决方案。

这是类的接口和实现：

class TMyListView : public TListView
{
protected:
    virtual void __fastcall DoItemClick(const TListViewItem *AItem);
};

...

/* TMyListView */

void __fastcall TMyListView::DoItemClick(const TListViewItem *AItem)
{
    // write here the logic that will be  executed
    // even if the OnItemClick handler is not assigned
    ShowMessage("Internal itemclick");

    // call the OnItemClick handler, if assigned
    TListView::DoItemClick(AItem);
}

然后在表单声明中声明TMyListView 类的实例和必要的事件处理程序：

TMyListView *LV;
void __fastcall MyOnItemClick(const TObject *Sender, const TListViewItem *AItem);

这里是事件处理程序和 LV 创建的实现：

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    LV = new TMyListView(this);
    LV->Parent = this;
    LV->Position->X = 1;
    LV->Position->Y = 1;
    LV->Width = 100;
    LV->Height = 100;

    LV->Items->Add()->Text = "111";

    LV->OnItemClick = &MyOnItemClick;
}

void __fastcall TForm1::MyOnItemClick(const TObject *Sender, const TListViewItem *AItem)
{
    ShowMessage("Assigned itemclick"); //or any other event handler action
}

两条消息都会显示。