Delphi 2009 VCL能否创建无DFM的TForm子类作为通用基类？

完全可以实现你要的需求——创建一个仅包含.pas文件的TAppBaseForm基类，让现有所有窗体（包括已有自定义基窗体的子类）继承它，统一处理非DFM相关的逻辑，无需维护该基类的.dfm文件。

实现步骤 #

1. 编写仅含.pas的TAppBaseForm类 #

创建一个独立的单元，实现TAppBaseForm继承自TForm，只在代码中处理统一逻辑，不声明任何需要可视化设计的组件：

unit AppBaseForm;

interface

uses
  Forms, cxButtons, Classes;

type
  TAppBaseForm = class(TForm)
  protected
    procedure DoFormCreate(Sender: TObject);
    procedure IterateComponents(Owner: TComponent; Proc: TProc<TComponent>);
  public
    constructor Create(AOwner: TComponent); override;
  end;

implementation

uses
  SkinUtils; // 替换为你实际处理DevExpress皮肤的单元

{ TAppBaseForm }

constructor TAppBaseForm.Create(AOwner: TComponent);
begin
  inherited;
  // 绑定统一的OnCreate事件
  if not Assigned(Self.OnCreate) then
    Self.OnCreate := DoFormCreate;
end;

procedure TAppBaseForm.IterateComponents(Owner: TComponent; Proc: TProc<TComponent>);
var
  I: Integer;
  Comp: TComponent;
begin
  // 递归遍历所有层级的组件，处理容器内的子组件
  for I := 0 to Owner.ComponentCount - 1 do
  begin
    Comp := Owner.Components[I];
    Proc(Comp);
    if Comp is TWinControl then
      IterateComponents(TWinControl(Comp), Proc);
  end;
end;

procedure TAppBaseForm.DoFormCreate(Sender: TObject);
begin
  // 根据皮肤状态统一设置cxButton的NativeStyle
  if SkinUtils.IsSkinEnabled then
  begin
    IterateComponents(Self, procedure(Comp: TComponent)
    begin
      if Comp is TcxButton then
        TcxButton(Comp).LookAndFeel.NativeStyle := False;
    end);
  end;
end;

end.

2. 修改现有窗体的继承关系 #

将所有原来继承TForm的窗体（包括你的自定义基窗体如TListBaseForm），改为继承TAppBaseForm：

// 原来的代码
// TListBaseForm = class(TForm)
// 修改后
TListBaseForm = class(TAppBaseForm)

// 原来的代码
// TMyEditForm = class(TForm)
// 修改后
TMyEditForm = class(TAppBaseForm)

关键注意事项 #

• 无DFM限制：TAppBaseForm中绝对不能声明任何需要在DFM中设计的组件（比如在类中添加Button1: TButton;这类声明），所有组件操作都通过遍历现有组件或动态创建实现。
• 继承逻辑兼容：已有DFM的子类窗体完全不受影响，VCL会正常加载子类的.dfm文件，同时执行TAppBaseForm中的统一逻辑。
• 执行顺序：基类的构造函数、OnCreate事件会先于子类执行，所以统一设置的逻辑会先生效，子类可以通过覆盖方法或在自己的OnCreate中调整，实现按需定制。
• 组件遍历优化：如果窗体中有嵌套容器（比如TPanel、TcxGroupBox），一定要用递归遍历组件，才能处理所有层级的TcxButton。

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