将 TForm 作为参数传递给函数

Question

我有一个包含多个表格的应用程序。其中两个非常相似，它们具有 VCL 对象（标签、图像等）形式的共同特征，我将其命名为相同。我想在特定 class 中有一个函数，它可以接受这两个表单之一作为参数，以便修改它们共有的参数。我想出的解决方案似乎不起作用。

由于我的应用程序又大又复杂，我用一个小例子重现了这个问题。首先，下面是我的 MainForm 的示例：

和一个子窗体的例子（它们的排列方式都差不多）

我有一个额外的 class 用于填写子表单上的编辑。 class 的代码如下：

#pragma hdrstop

#include "master_class.h"
#include "sub_Form2.h"
#include "sub_Form3.h"
#include "sub_Form4.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)

Master::Master(void)
{

}

Master::~Master(void)
{

 }

 void Master::WriteToForm(TForm* Form)
{
TForm2* curForm = static_cast<TForm2*>(Form);

TForm3* self = dynamic_cast<TForm3*>(Form);
TForm2* self2 = dynamic_cast<TForm2*>(Form);

if (self != NULL && self2 == NULL) {
    TForm3* curForm = static_cast<TForm3*>(Form);
}

else if (self == NULL && self2 != NULL) {
    TForm2* curForm = static_cast<TForm2*>(Form);
}

curForm -> Edit1 -> Text = "blablabla_1";
curForm -> Edit2 -> Text = "blablabla_2";
}

在 MainForm 中，“Fill Form2”按钮的代码如下：

Master1 -> WriteToForm(Form2);

其中 Master1 只是 Master class 的一个对象。这对 Form2 非常有效：

但是对于使用 Master1 -> WriteToForm(Form3) 填充的 Form3，这是我得到的，与我的实际应用程序中的 pb 相同：

所以应该去Edit的地方错了。我认为主要的原因是我没有在同一订单上创建每个标签、编辑等……。我这样做是为了模仿我的真实应用程序。为了验证这一点，我创建了第三个子窗体，这次 VCL 对象的创建顺序与我的第一个子窗体相同，并且有效：

所以我怀疑这来自最初的演员阵容

TForm2* curForm = static_cast<TForm2*>(Form);

当我将 Form3 作为参数传递时，Form3 在某种程度上被转换为 Form2 的“形状”，它不是以相同的顺序定义的。也许这可以通过直接修改 DFM 文件来纠正，但这对我的主要应用程序来说不是一个现实的方法。

我执行此初始转换，否则我会收到编译错误，指出第一行的 curForm 未知

curForm -> Edit1 -> Text = "blablabla_1";

那么，有没有更好的方法将表单作为参数传递给 WriteToForm 函数？

Answer 1

仅仅因为两种类型相似并不意味着它们相关。您的代码不起作用，因为您的两个 Form classes 没有任何关联。你不能随意将一个转换为另一个。

要解决这个问题，您有几种选择：

两个表格的代码 classes 分开，例如：

void Master::WriteToForm(TForm* Form)
{
    TForm2* curForm2 = dynamic_cast<TForm2*>(Form);
    TForm3* curForm3 = dynamic_cast<TForm3*>(Form);

    if (curForm2)
    {
        curForm2->Edit1->Text = _D("blablabla_1");
        curForm2->Edit2->Text = _D("blablabla_2");
    }
    else if (curForm3)
    {
        curForm3->Edit1->Text = _D("blablabla_1");
        curForm3->Edit2->Text = _D("blablabla_2");
    }
}

或者：

void WriteToForm(TForm2* Form);
void WriteToForm(TForm3* Form);

...

void Master::WriteToForm(TForm2* Form)
{
    Form->Edit1->Text = _D("blablabla_1");
    Form->Edit2->Text = _D("blablabla_2");
}

void Master::WriteToForm(TForm3* Form)
{
    Form->Edit1->Text = _D("blablabla_1");
    Form->Edit2->Text = _D("blablabla_2");
}

使您的函数使用模板（但是，请注意：Why can templates only be implemented in the header file?）：

template<typename T>
void WriteToForm(T* Form);

...

void Master::WriteToForm<T>(T* Form)
{
    Form->Edit1->Text = _D("blablabla_1");
    Form->Edit2->Text = _D("blablabla_2");
}

使两个表单class派生自一个公共基础class或接口，例如：

class TBaseForm : public TForm
{
public:
    inline __fastcall TBaseForm(TComponent *Owner) : TForm(Owner) {}
    virtual void SetEdit1(const String &Text) = 0;
    virtual void SetEdit2(const String &Text) = 0;
};

...

class TForm2 : public TBaseForm
{
    ...
public:
    __fastcall TForm2(TComponent *Owner);
    ...
    void SetEdit1(const String &NewText);
    void SetEdit2(const String &NewText);
};

__fastcall TForm2::TForm2(TComponent *Owner)
    : TBaseForm(Owner)
{
    ...
}

void TForm2::SetEdit1(const String &NewText)
{
    Edit1->Text = NewText;
}

void TForm2::SetEdit2(const String &NewText)
{
    Edit2->Text = NewText;
}

...

repeat for TForm3...

...

void Master::WriteToForm(TBaseForm* Form)
{
    Form->SetEdit1(_D("blablabla_1"));
    Form->SetEdit2(_D("blablabla_2"));
}

或者：

__interface INTERFACE_UUID("{E900785E-0151-480F-A33A-1F1452A431D2}")
IMyIntf : public IInterface
{
public:
    virtual void SetEdit1(const String &Text) = 0;
    virtual void SetEdit2(const String &Text) = 0;
};

...

class TForm2 : public TForm, public IMyIntf
{
    ...
public:
    __fastcall TForm2(TComponent *Owner);
    ...
    void SetEdit1(const String &NewText);
    void SetEdit2(const String &NewText);
};

__fastcall TForm2::TForm2(TComponent *Owner)
    : TForm(Owner)
{
    ...
}

void TForm2::SetEdit1(const String &NewText)
{
    Edit1->Text = NewText;
}

void TForm2::SetEdit2(const String &NewText)
{
    Edit2->Text = NewText;
}

...

repeat for TForm3...

...

void Master::WriteToForm(IMyIntf* Intf)
{
    Intf->SetEdit1(_D("blablabla_1"));
    Intf->SetEdit2(_D("blablabla_2"));
}

使用 RTTI 访问字段，例如：

#include <System.Rtti.hpp>

void Master::WriteToForm(TForm* Form)
{
    TRttiContext Ctx;
    TRttiType *FormType = Ctx.GetType(Form->ClassType());

    TRttiField *Field = FormType->GetField(_D("Edit1"));
    if (Field)
    {
        TValue value = Field->GetValue(Form);
        if( (!value.Empty) && (value.IsObject()) )
        {
            TObject *Obj = value.AsObject();

            // Either: 

            static_cast<TEdit*>(Obj)->Text = _D("blablabla_1");

            // Or:

            TRttiProperty *Prop = Ctx.GetType(Obj->ClassType())->GetProperty(_D("Text"));
            if (Prop) Prop->SetValue(Obj, String(_D("blablabla_1")));
        }
    }

    Field = FormType->GetField(_D("Edit2"));
    if (Field)
    {
        TValue value = Field->GetValue(Form);
        if( (!value.Empty) && (value.IsObject()) )
        {
            TObject *Obj = value.AsObject();

            // Either: 

            static_cast<TEdit*>(Obj)->Text = _D("blablabla_2");

            // Or:

            TRttiProperty *Prop = Ctx.GetType(Obj->ClassType())->GetProperty(_D("Text"));
            if (Prop) Prop->SetValue(Obj, String(_D("blablabla_2")));
        }
    }
}

将 TForm 作为参数传递给函数

Passing a TForm as an argument to a function

c++

vcl

c++builder