5

我正在使用 Delphi 5，我在运行时创建了许多面板，然后在面板上创建按钮，显然在运行时再次创建。我需要这样做，因为将来我可能需要动态创建更多面板/按钮组合。

我可以做到所有这些，但我不知道如何引用我创建的面板，因为我找不到访问面板组件名称的方法。在互联网上搜索我发现我可以使用 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;

我在几个论坛（包括这个论坛）上读到，无法直接按名称引用面板。我尝试使用组件数组，但遇到了同样的问题 - 我需要通过分配的组件名称来引用组件。

好吧，我不是枪程序员——多年来我一直使用 Delphi 创建简单的程序，但这个程序要复杂得多。我以前从未使用过运行时组件创建。

我可以使用 FindComponent 使面板可见或不可见吗？如果是这样，鉴于我在上面向您展示的内容，您能告诉我我应该采取的步骤吗？

提前致谢 ...

4

4 回答 4

12

我不确定您的意思是：“我不能使用字符串变量来引用它 - 例如 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;

还是我错过了什么？

于 2012-12-05T16:38:48.963 回答
6

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

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

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

于 2012-12-05T15:20:02.577 回答
2

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

AFAIK，每当您创建一个使用 Form 或其他 Container 代替 self 的新面板时

  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 属性并在上面的示例中使用它。

于 2012-12-05T15:49:40.453 回答
0

您可以将需要引用的组件添加到 TList|Container... 然后使用您的 list|container 访问它们

var
  slPanels: TStringList;
...


 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;
      slPanels.AddObject(FieldByName('PanelName').AsString, pnl);

当你需要它时：

TPanel(slPanels.Objects[slPanels.IndexOf(FieldByName('PanelName').AsString)]) ...

我不喜欢上面的代码（有更好的容器......但这应该可以完成工作：o））

于 2012-12-05T15:22:03.127 回答