如何让Delphi新窗体TNewForm继承TMyForm的.pas代码而非.dfm布局？

完全可行，推荐两种实现思路，根据你的代码结构选择：

方法一：抽离逻辑到独立类（更优雅，解耦UI与业务） #

• 新建一个非可视化类（比如继承自TComponent或者纯自定义类），命名为TMyFormLogic。
• 将TMyForm中所有和UI布局无关的代码迁移到这个类里：包括业务逻辑计算、数据处理、工具方法，以及可以抽象的事件逻辑（比如把按钮点击的业务逻辑抽出来，UI层只负责触发逻辑类的方法）。
• 在TMyForm和TNewForm中分别声明TMyFormLogic的实例，在窗体的构造函数中初始化，析构函数中释放。
• 两个窗体的UI事件（比如按钮点击）直接调用逻辑类的对应方法，各自维护独立的DFM布局，完全复用核心逻辑。

方法二：继承代码但替换DFM文件（适合快速改造） #

• 创建一个空白的新窗体TNewForm，关闭设计器后手动修改其.pas文件：将继承关系从TForm改为TMyForm。
• 确保.pas文件中的{$R *.dfm}指令保留，此时Delphi会自动关联原TMyForm的DFM，需要手动替换：右键项目中的TNewForm，选择"Add" -> "New" -> "Form"，将新生成的空白DFM文件与TNewForm关联（修改项目文件或者直接在.pas中指定DFM路径）。
• 打开TNewForm的设计器，此时会加载空白布局，你可以完全重新设计UI。注意：如果原TMyForm的构造/析构方法或其他逻辑依赖原控件，需要在TNewForm中重写这些方法，调整代码适配新控件，避免运行时访问无效控件的错误。

注意事项 #

• 若原窗体代码大量直接操作控件，抽离逻辑时建议定义接口，让窗体实现接口方法，逻辑类通过接口与UI交互，彻底解耦。
• 采用继承方式时，避免在父类中硬编码控件名称或依赖控件的特定属性，尽量通过虚方法或事件让子类适配。

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