delphi - 如何在Delphi中进行批量-表单到框架的转换？

Question

我有一个带有aprox的表单，上面有200个视觉组件，分配了很多事件，我现在需要将其更改为框架。我没有足够的时间复制所有组件，重新排列所有可视组件并重新分配所有事件、对齐等。因此，我复制了 pas 和 dfm，打开并开始在文本编辑器中编辑它们(将 TForm 更改为 Tframe 等)，但似乎这没有得到预期的结果。

有人知道如何解决这个问题吗？

Answer 1

观察项目中表单和框架的差异。

首先是project.dpr来源:

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit3 in 'Unit3.pas' {Frame3: TFrame};

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

差异:

1. 框架作为更详细的注释，告诉 IDE 应使用哪个设计器
2. 表单可以自动创建

Dfm 文件:

object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 348
  ClientWidth = 643
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
end

和

object Frame3: TFrame3
  Left = 0
  Top = 0
  Width = 320
  Height = 240
  TabOrder = 0
end

框架不具有以下属性:

• 标题
• 客户端高度
• 客户端宽度
• 颜色
• 字体.字符集
• 字体颜色
• 字体高度
• 字体名称
• 字体样式
• 旧创建订单
• 每英寸像素
• 文字高度

旁注:框架没有这些事件:

• 创建时
• 销毁时

框架没有这样的全局变量:

var
  Form1: TForm1;

框架源自TFrame，而表单源自TForm。

注意:使用 Frame/Form 继承，您的步骤会变得更长一些。

--杰罗恩