如何用IDE设计模板在运行时创建Delphi可视化配置组件？

一、直接加载DFM到TPanel #

完全可以通过Delphi的内置类实现将IDE设计的UI加载到TPanel中，最便捷的方式是使用TFrame（Frame天生适合嵌入容器，比Form更适配场景），或者直接读取DFM资源/文件到Panel。

方式1：使用TFrame嵌入（推荐） #

在IDE中创建一个TFrame，设计好你的配置UI，然后直接创建Frame实例并添加到Panel中：

TMyObject=class(TObject)
public
 procedure ShowCfg(APanel:TPanel);
end;

procedure TMyObject.ShowCfg(APanel:TPanel);
var
  CfgFrame: TCfgFrame; // TCfgFrame是你在IDE中创建的Frame类
begin
  CfgFrame := TCfgFrame.Create(APanel);
  CfgFrame.Parent := APanel;
  CfgFrame.Align := alClient; // 让Frame填满整个Panel
end;

这种方式无需手动处理DFM加载，IDE会自动生成Frame的类和属性代码，维护和修改UI都直接在设计器中完成，效率最高。

方式2：直接加载DFM资源到Panel #

如果必须直接加载DFM内容，可以用TReader类读取DFM资源或文件，加载到Panel中：

procedure ImportDFM(APanel: TPanel);
var
  Stream: TResourceStream;
  Reader: TReader;
begin
  // 假设你已将设计好的DFM作为资源嵌入程序，资源类型为'FRAME'，名称为'TCfgUI'
  Stream := TResourceStream.Create(HInstance, 'TCfgUI', 'FRAME');
  try
    Reader := TReader.Create(Stream, 4096);
    try
      Reader.ReadRootComponent(APanel); // 将DFM内容加载到Panel
    finally
      Reader.Free;
    end;
  finally
    Stream.Free;
  end;
end;

// 调用示例
procedure TMyObject.ShowCfg(APanel:TPanel);
begin
  ImportDFM(APanel);
end;

如果是读取外部DFM文件，把TResourceStream替换为TFileStream即可：

Stream := TFileStream.Create('CfgUI.dfm', fmOpenRead or fmShareDenyWrite);

二、将DFM导出为Delphi代码 #

如果偏好手动编写控件代码，可以通过以下方法将DFM转换为Pascal代码：

1. IDE内置文本视图转换 #

在Delphi IDE中打开目标Form/Frame的DFM文件，右键编辑器选择View as Text，此时DFM会以结构化文本显示。你可以手动将文本中的控件属性映射为Delphi代码，例如文本DFM中的：

object Edit1: TEdit
  Left = 20
  Top = 20
  Width = 100
  Height = 20
end

可以转换为：

with TEdit.Create(APanel) do
begin
  Left := 20;
  Top := 20;
  Width := 100;
  Height := 20;
  Parent := APanel;
end;

2. 第三方工具辅助转换 #

有专门的Delphi工具可以自动将DFM导出为Pascal代码，比如DFM to Pascal Converter，这类工具能批量解析DFM文件，生成完整的控件创建和属性赋值代码，省去手动转换的麻烦。

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