如何消除变量“panel1, panel2, panel3 .. etc.”在德尔福？

Question

我有这种类型

type
 TMain = class(TForm)

 panel1: Tpanel;
 panel2: Tpanel;
 panel3: Tpanel;
 panel4: Tpanel;
 panel5: Tpanel;
 panel6: Tpanel;
 panel7: Tpanel;
 panel8: Tpanel;
 ......
 panel45: Tpanel;

 label1: TLabel;
 label2: TLabel;
 label3: TLabel;
 label4: TLabel;
 label5: TLabel;
 label6: TLabel;
 label7: TLabel;
 ...........
 label109: TLabel;

我怎样才能在一行中调用这些组件...在 Type 中？

谢谢...

更新....

从我得到并接受的 anwser 的基础上，当我拥有所有这些组件并从主窗体中进行 button1.click 之类的操作时，它的效果很好......

但我习惯从单位做出动作......所以

当我点击一个按钮时，我会看到一个过程 DoMaths(Sender: TObject);

procedure Tform1.DoMaths(Sender: TObject);
  begin
    if TButton1(Sender).hint := 'Make the standard Package' then
      do_Maths_standard_package;
  end;

do_Maths_standard_package 位于 ComplexMaths 单元中。

是过程do_Maths_standard_package表单单元ComplexMaths它调用Form1中的一些组件......比如Form1.label1等......

所以当我调用 RegisterClass(TLabel) 并从类型中删除 Tlabel 时，它会给出一个错误，它无法找到 Label1...

请有人帮助我不要从一开始就做洞程序......

再次感谢...

Answer 1

您可以删除 TPanel 或 TLabel 的名称，然后它只存在于控件列表中，而不存在于表单的类型声明中。您要么需要留下一个标签和一个面板，要么 添加：

initialization
  RegisterClass(TPanel);
  RegisterClass(Tlabel);
end.

在表格的末尾。

这使得带有大量控件的表单更加整洁。

Answer 2

使用TForm.Controls 数组：

var
  i: Integer;
  Pnl: TPanel;
begin
  for i := 0 to ControlCount - 1 do
    if Controls[i] is TPanel then
    begin
      Pnl := TPanel(Controls[i]);
      Pnl.Caption := 'This is panel ' + IntToStr(i);
    end;
end;

Delphi 自动为每个TWinControl 创建两个列表：

• Controls 包含控件包含的所有 TControl 项的列表。

• Components 是控件上所有TComponents 的列表。

请注意，所有Controls 都是Components，但并非所有Components 都是Controls；这就是为什么有两个列表。 （例如，TDataSet 在Components 列表中，但不在Controls 列表中；另一方面，TEdit 将在两者中。）

您也可以使用相同的技术来遍历面板或其他容器上的组件 - 例如，TPanel 具有 Control 和 Component 数组。

如果您真正想要的是减少 type 声明本身内的项目数量，请改为在运行时创建它们 - Delphi 会自动将它们添加到基于 Owner 和 Parent 的数组中：

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
  Panel: TPanel;
  Label: TLabel;
begin
  for i := 0 to 10 do
  begin
    Panel := TPanel.Create(Self);  // Set who frees it
    Panel.Parent := Self;   // Set display surface
    Panel.Align := alTop;
    Panel.Name := Format('Panel%d', [i]); // Not necessary
    Panel.Caption := Panel.Name;  

    // Add a label on each panel, just for fun.
    Label := TLabel.Create(Panel); // Panel will free label
    Label.Parent := Panel;         // Label will show on panel
    Label.Top := 10;
    Label.Left := 10;
    Label.Name := Format('Label%d', [i]);
    Label.Caption := Label.Caption;   // Not necessary
  end;
end;

请注意，自己创建它们不是“优化”，因为它只是将加载从 VCL 转移到您自己做。它会减小 .dfm 文件的大小，但不会加快您的代码或加载时间，这意味着您也无法直观地布置表单。 （维护你的代码也更难，因为你的控件有无意义的名字。当你在 6 个月后阅读代码时，知道LastNameEdit 或EditLastName 是什么比Edit1 容易得多。）

Answer 3

你可以使用数组：

panels : array[1..45] of TPanel; 

这将允许您创建一个控件数组，并通过索引访问和使用它们。