在运行时将 Tframe 添加到另一个 Tframe

Question

我有 2 个 tframe 和一个添加按钮。我试图在按下按钮时将一个 tframe 添加到另一个 tframe 上。但由于我们的原因，我的代码似乎无法工作。它没有像预期的那样添加框架。没有错误或运行，它编译并运行，但是当我按下按钮时它什么也不做。当我向滚动框添加 tframe 时，它​​就开始工作了，我所做的就是更改要添加的 tframe 的位置。

TFrame2 的代码

void __fastcall TFrame2::AddFrame()
{
    int temp = 0;
    TFrame1* NewFrame1 = new TFrame1(this);
    NewFrame1 ->Parent=this;

    TComponentEnumerator * ParentEnum = GetEnumerator();

    while(ParentEnum->MoveNext())
    {
        temp++;
    }

    NewFrame1 ->SetIndex(temp);
    NewFrame1 ->Name = "Frame" + IntToStr(temp);
    NewFrame1 ->Top = ( NewFrame1 ->Height ) * (temp);
}

这是我用于 TFrame1 本身的代码

void __fastcall TFrame1 ::SetIndex(int temp)
{
    this->temp= temp;
}

int __fastcall TFrame1 ::GetIndex()
{
    return this->temp;
}

a lil bg info：我必须将 tframe 添加到另一个 tframe 的原因是这样我可以将一组组件添加到另一组组件上，我不知道任何其他组件方法来做到这一点。后来我将 tframe2 添加到主窗体中。

Answer 1

根据您显示的代码，唯一可能出错的事情是您将子框架的 Top 属性设置为超过其父框架的 Height 属性的值这样您就不会看到子框架出现在屏幕上，即使它确实存在于内存中。