如何在不知道其名称的情况下访问组件的属性?

Nas*_*out -5 delphi

有没有办法在不知道其名称的情况下使用在运行时创建的组件的属性?我的意思是你已经完成了这个.

with TPanel.Create(self) do
  begin
  Name := 'Panel' + IntToStr(ComponentCount + 1);
  Height := 50;
  Width := 100;
  Top := 30;
  Left := 30;
  Parent := self;
  end;
Run Code Online (Sandbox Code Playgroud)

Dav*_*nan 7

声明一个类型的变量,TPanel并在该变量中存储对组件的引用.

var
  Panel: TPanel;
.... 
Panel := TPanel.Create(Self);
Run Code Online (Sandbox Code Playgroud)

然后,您可以使用此变量引用控件.

您可能需要将变量保存为表单的成员字段,或者保存在数组中,或者实际上是某个其他容器中.

  • 没关系.答案是一样的. (3认同)
  • 然后它们不能全部被称为panel1.将它们存储在数组或其他容器中,如答案中所述. (2认同)