C++：如何使 VCL 组件引用本身？

Question

我在 RAD Studio 10.2 中使用 C++ Builder。我不确定我是否在标题中正确地问了这个问题，但我想说的是，每当我使用 C++ 关键字“this”时，它都会引用我试图访问的组件的父级，但是而不是组件本身。

例如，下面的代码改变了Form的颜色和字体颜色，而不是Panel的颜色和字体颜色：

void __fastcall TForm1::Panel1MouseEnter(TObject *Sender)
{
    this->Color = cl3DLight;
    this->Font->Color = clMaroon;
}

此外，如果我执行与上述相同的操作但省略关键字“this”，它仍会更改表单的属性而不是面板的属性（参见下面的代码）。

void __fastcall TForm1::Panel1MouseEnter(TObject *Sender)
{
    Color = cl3DLight;
    Font->Color = clMaroon;
}

我该如何编写代码以便它访问面板的“颜色”和“字体->颜色”而不是表单？谢谢。

注意：我之所以不这样做是因为：Panel1->Color = "cl3DLight"; 是因为我试图为运行时创建的组件找到一种方法。 p>

Answer 1

Sender 参数表示生成事件的组件。您可以将该指针类型转换为正确的类型，以便访问该组件的属性。

如果您确定附加到事件的所有内容都是TPanel，则可以直接对其进行类型转换（正如 Remy 在下面的 cmets 中指出的那样）：

void __fastcall TForm1::Panel1MouseEnter(TObject *Sender)
{
    TPanel *panel = static_cast<TPanel *>(Sender);
    panel->Color = cl3DLight;
    panel->Font->Color = clMaroon;
}

如果您对不同的控件类型使用相同的事件处理程序，则可以改为测试适当的类型：

void __fastcall TForm1::Panel1MouseEnter(TObject *Sender)
{
    TPanel *panel = dynamic_cast<TPanel *>(Sender);
    if (panel) 
    {
      panel->Color = cl3DLight;
      panel->Font->Color = clMaroon;
    }
}