-2

我想在运行时用许多具有相同列表的组合框填写表单。它们还获得相同的事件处理程序，该处理程序根据Sender对象的名称进行操作。但是，这需要很长时间，我猜我做错了什么。

我正在使用 XE2 Rad Studio C++ Builder 和 VCL GUI。

编辑：这些框包含不同类型的内容，并分布在表单中的几个 tabPages 上。但是，有必要一目了然地显示它选择的至少 80 个。在单击 TLabel 以选择不同的元素时，用 TLabels 替换它们并创建一个 TCombobox 会更好吗？

代码看起来与此类似：

void __fastcall TForm::TForm(){
    int i=0;
    TStringList* targetlist = new TStringList();
    targetlist->Add("Normal");
    targetlist->Add("Inverted");
    Vcl::Stdctrls::TComboBox **com = new Vcl::Stdctrls::TComboBox[512];
    for(i=0;i<512;++i){
        com[i]=new Vcl::Stdctrls::TComboBox(this);
        com[i]->Parent=this;
        com[i]->Name.printf(L"Combo_%d", i);
        com[i]->SetBounds(10, 198 + 20 * i, 130, 200);
        com[i]->Items = targetlist;
        com[i]->ItemIndex = 0;
        com[i]->Style = csDropDownList;
        com[i]->OnChange = MyComboTriggerChange;
    }
}

在我的机器上进行一次迭代似乎需要大约 20 毫秒（用 测试过std::clock），这使得这部分大约需要 10 秒。指针在表单销毁时被删除。我只是把他们的声明放在这里为了简化。

有没有更好的方法来创建多个组合框？也许克隆它们？

4

1 回答 1

3

你真的需要重新设计你的 UI。在一个屏幕上使用具有相同值列表的512 个TComboBox控件没有逻辑意义，而且浪费时间和资源。有更好的方法可以在屏幕上显示 512 个字符串，例如TListViewin report 模式或 a TListBox（它们都支持虚拟模式，因此它们可以共享公共数据而不会浪费内存）。或者使用TValueListEditororTStringGrid和esPickList内联编辑器。或者，如果你真的很喜欢冒险，从头开始编写一个自定义控件，这样你就可以使用 1 个高效控件而不是 512 个单独的控件。任何东西都比 512TComboBox控件好。

话虽这么说，TComboBox不支持虚拟模式，like TListBoxand TListViewdo，但是您仍然可以进行一些优化来加快您的TComboBoxes 速度：

  1. 不要制作相同TStringList内容的 512 份副本。您添加到 的任何内容TComboBox::Items都存储在TComboBox的内存中。你应该努力重用你的单曲TStringList，并让一切都根据需要委托给它。在这种情况下，您可以将TComboBox::Style属性设置为csOwnerDrawFixed并使用事件来按需TComboBox::OnDrawItem绘制字符串。TStringList您仍然需要向 each 添加字符串TComboBox，但它们至少可以是空字符串。

  2. 子类TComboBox覆盖其虚CreateParams()方法并删除CBS_HASSTRINGS窗口样式，则TComboBox实际上不需要在其内存中存储空字符串。

尝试这样的事情：

class TMyComboBox : public Vcl::Stdctrls::TComboBox
{
    typedef Vcl::Stdctrls::TComboBox inherited;

private:
    TStrings *fSharedItems;

    void __fastcall SetSharedItems(TStrings *Values)
    {
        if (fSharedItems != Values)
        {
            fSharedItems = Values;

            Items->BeginUpdate();
            try
            {
                Items->Clear();
                if (fSharedItems)
                {
                    for (int i = 0; i < fSharedItems->Count; ++i)
                        Items->Add(L"");
                }
            }
            __finally
            {
                Items->EndUpdate();
            }
        }
    }

protected:
    virtual void __fastcall CreateParams(TCreateParams &Params)
    {
        inherited::CreateParams(Params);
        Params.Style &= ~CBS_HASSTRINGS;
    }

    virtual __fastcall DrawItem(int Index, TRect Rect, TOwnerDrawState State)
    {
        // draw the items however you want...

        if (fSharedItems)
            Canvas->TextRect(Rect.Left, Rect.Top, fSharedItems->Strings[Index]);
    }

public:
    __fastcall TMyComboBox(TComponent *Owner)
        : Vcl::Stdctrls::TComboBox(Owner)
    {
        Style = csOwnerDrawFixed;
    }

    __property TStrings* SharedItems = {read=fSharedItems, write=SetSharedItems};
};

class TMyForm : public TForm
{
    ...
private:
    TStringList* targetlist;
    TMyComboBox **com;
    void __fastcall MyComboTriggerChange(TObject *Sender);
    ...
public:
    __fastcall TMyForm(TComponent *Owner);
    __fastcall ~TMyForm();
    ...
};

__fastcall TMyForm::TMyForm(TComponent *Owner)
    : TForm(Owner)
{
    targetlist = new TStringList;
    targetlist->Add("Normal");
    targetlist->Add("Inverted");

    com = new TMyComboBox*[512];
    for(int i=0;i<512;++i)
    {
        com[i] = new TMyComboBox(this);
        com[i]->Parent = this;
        com[i]->Name = String().sprintf(L"Combo_%d", i);
        com[i]->SetBounds(10, 198 + 20 * i, 130, 200);
        com[i]->SharedItems = targetlist;
        com[i]->ItemIndex = 0;
        com[i]->OnChange = &MyComboTriggerChange;
    }
}

__fastcall TMyForm::~TMyForm()
{
    delete targetlist;
    delete[] com;
}

void __fastcall TMyForm::MyComboTriggerChange(TObject *Sender)
{
    TMyComboBox *cb = static_cast<TMyComboBox*>(Sender);
    // use targetlist->Strings[cb->ItemIndex] as needed...
}
于 2016-06-27T19:32:33.780 回答