2

如何检查表单的所有组件并验证组件的类型TEdit

4

3 回答 3

4

您可以使用dynamic_cast 运算符

于 2012-12-21T09:02:24.127 回答
0

如果我错了,请原谅,但不会自动将所有表单组件对象指针添加到类定义(在头文件中)..

如:

class TFormSomeForm : public TForm
{
__published:
    TEdit *SomeEditBox;
    TEdit *AnotherEditBox;
...
}

这意味着您可以从标题中分辨出哪些组件属于 TEdit 类型。
或者您可以单击设计视图中的组件,对象检查器将显示类型。

于 2012-12-21T09:03:21.493 回答
0

我的函数设置 TWinControl 及其子项中所有编辑的 Text 属性。

void __fastcall SetEditsText(TWinControl* winControl, UnicodeString editsText)
{    
    for (int c = 0; c < winControl->ControlCount; c++)
    {
        TControl* ctrl = winControl->Controls[c];

        TWinControl* wc = dynamic_cast<TWinControl*>(ctrl);

        // Check if it's grouping component
        if (wc != NULL)
        {
            // Set edits of children
            SetEditsText(wc, editsText);
        }
        else 
        {
            if (ctrl->ClassType() == __classid(TEdit))
            {
                TEdit* ecomp = (TEdit*) ctrl;
                ecomp->Text = editsText;
            }
        }
    }
}

使用:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    SetEditsText(form1, ""); // Clear all edits
}
于 2014-11-12T12:29:06.270 回答