引用在运行时创建的组件

我使用的是Delphi 5，我在运行时创建了一些面板，然后在面板上创建按钮，显然在运行时也是如此。 我需要这样做，因为我可能需要在未来动态创建更多面板/按钮组合。

我可以做所有这些，但是我不知道如何引用我创建的面板，因为我找不到访问面板组件名称的方法。 在Internet上搜索我发现我可以使用FindComponent按名称查找面板组件，但我仍然不知道如何使用该名称，因为我无法使用字符串变量来引用它 - 例如StringVar ：= Panel.Name。 我得到一个类型不匹配，TComponentName与String。

我在创建面板时为每个面板创建了按钮。 简化，它看起来像这样：

   With TypeQuery do begin // Create Panels
   First;
   While (not eof) do begin        // create the actual panel
      panelno := FieldByName('Product_type_id').AsInteger;
      pnl := Tpanel.Create(Self);
      pnl.name := FieldByName('PanelName').AsString;
      pnl.color := clInactiveCaption;
      pnl.parent := MainForm;
      pnl.width := 365;
      pnl.Height := 551;
      pnl.left := 434
      pnl.top := 122;
      pnl.caption := '';
      With ButtonQuery do begin
         Close;
         Parameters.parambyname('PanelID').Value := PanelNo;
         Open;
         First;
         While (not eof) and (FieldByName('Product_type_id').AsInteger = PanelNo) do begin    //put the buttons on it.
            btnName := FieldByName('ButtonName').AsString;
            BtnText := FieldByName('ButtonText').AsString;
            BtnGroup := FieldByName('Product_Group_ID').AsString;
            GrpColour := FieldByName('ButtonColour').AsString;
            btn := TColorButton.Create(Self);
            btn.Parent := pnl;
            btn.Name := BtnName;
            Btn.backcolor := HexToTColor(GrpColour);
            btn.Font.Name := 'Arial Narrow';
            btn.Font.Style := [fsBold];
            btn.Font.Size := 10;
            . . .
        end;
        . . .
     end; 
  end;

我读过几个论坛（包括这个论坛），没有办法通过名字直接引用面板。 我试过使用组件数组，但是我遇到了同样的问题 - 我需要通过指定的组件名称来引用组件。

好的，我不是一个枪程序员 - 我用德尔福多年来创建简单的程序，但这个更复杂。 我以前从未使用过运行时组件创建。

我可以使用FindComponent使面板可见或不可见吗？ 如果是这样，鉴于我在上面给你们展示的东西，你能给我采取婴儿步骤的方法吗？

提前致谢 ...

---

我不确定你的意思是：“我不能使用字符串变量来引用它 - 例如StringVar：= Panel.Name。”

尝试这个：

procedure TForm1.FormCreate(Sender: TObject);
var
  p: TPanel;
begin
  p := TPanel.Create(Self); // create a TPanel at run-time
  p.Name := 'MyPanel'; // set a unique name
  p.Parent := Self;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  p: TPanel;
  StringVar: string;
begin
  p := FindComponent('MyPanel') as TPanel;
  if Assigned(p) then // p has reference to MyPanel
  begin
    // use that reference
    p.Caption := 'Foo';
    StringVar := p.Name;
    ShowMessage(StringVar);
  end;
end;

或者我错过了什么？

---

您正在将组件名称与变量名称相混淆。 Delphi IDE努力使这两者保持一致，即IDE创建的组件，但它们不一定相同。 您没有变量名称，因为您是动态创建组件的，并且您不知道需要多少变量。 但是，您仍然可以控制组件名称：只需指定组件的Name属性，然后通过调用FindComponent就可以像使用其他组件名称一样使用它。 只要确保每个面板实例的名称都是唯一的。

还要记住，当你不知道编译时需要多少变量时，处理变量的方法是使用数组或列表。 您可以使用普通的旧阵列，或者你可以像使用更复杂的数据结构TComponentList或TDictionary 。

最后，为了更容易地引用您正在创建的面板上的控件，您可以放弃面板并使用相框。 您可以在IDE中直观地设计TFrame并为按钮指定名称，并且在运行时您可以实例化框架类，并且它会自动为您创建所有按钮，就像实例化表单或数据模块时一样。 您只需要为新的框架对象命名，但该对象已经具有指向按钮的命名字段。

---

应该不需要创建您创建的项目的辅助列表以显示在tForm实例上。

AFAIK，无论何时您创建一个使用表单或其他容器代替自己的新面板

  pnl := Tpanel.Create(Self);

你不需要照顾销毁新的pnl，因为它是由包含“self”组件处理的。

这意味着应该有任何将持有父组件的子组件的构造。

我期望你会在父对象中找到一个ComponentCount或Components列表或FindComponent方法。 假设“Self”被引用的对象是一个Tform。

 for i := 0 to tForm(self).ComponentCount -1 do 
   if tForm(self).Components[i] is tPanel then 
      tPanel(tForm(self).Components[i]).Caption := intToStr(i) ;

将改变应用程序中的所有tPanel的标题。 为了区分由代码和设计器创建的面板，您可以使用每个创建的tPanel的TAG属性，并在上例中使用它。

链接地址: http://www.djcxy.com/p/91071.html

上一篇: Referencing Components created at Runtime

下一篇: How to add menu items separators which work as expected on OSX?