Delphi：如何利用TEdit文本获取对应TPanel组件并访问其属性

直接通过拼接名称访问组件的核心是用VCL内置的FindComponent方法，它能根据组件名称在指定容器的组件列表中查找对应的实例，实现代码如下：

var
  TargetPanel: TPanel;
  PanelName: string;
  DummyInt: Integer;
begin
  // 先校验输入是否为有效数字，避免无效的组件名称
  if not TryStrToInt(Edit1.Text, DummyInt) then
  begin
    ShowMessage('请输入有效的数字');
    Exit;
  end;

  // 拼接目标Panel的组件名称
  PanelName := 'Panel' + Edit1.Text;
  // 在窗体中查找组件（如果Panel在其他容器内，比如GroupBox，就用GroupBox1.FindComponent）
  TargetPanel := FindComponent(PanelName) as TPanel;

  // 检查组件是否存在，防止空指针异常
  if Assigned(TargetPanel) then
  begin
    // 直接访问属性，比如判断颜色
    if TargetPanel.Color = clRed then
    begin
      ShowMessage(Format('Panel%s的颜色是红色', [Edit1.Text]));
    end
    else
    begin
      ShowMessage(Format('Panel%s的颜色不是红色', [Edit1.Text]));
    end;
  end
  else
  begin
    ShowMessage(Format('不存在名为%s的TPanel组件', [PanelName]));
  end;
end;

注意事项 #

• 容器匹配：如果你的TPanel不是直接放在窗体上，而是嵌套在其他容器（如TPanel、TGroupBox、TScrollBox）中，必须调用对应容器的FindComponent方法，而不是窗体的，否则会找不到组件。
• 输入校验：一定要对Edit1的文本做合法性校验，避免非数字输入导致拼接出无效的组件名称，引发后续错误。
• 类型安全：使用as TPanel转换时，若找到的组件不是TPanel类型，会抛出异常，不确定类型时可以先判断：

  if FindComponent(PanelName) is TPanel then
    TargetPanel := TPanel(FindComponent(PanelName))
  else
    ShowMessage('找到的组件不是TPanel类型');
  

内容的提问来源于stack exchange，提问作者user578332