如何在Delphi中对表格进行批量转换？

发布时间：2020-12-15 04:18:12 所属栏目：大数据来源：网络整理

导读：我有一个aprox表单,上面有200个可视组件,分配了很多事件,我现在需要将它更改为一个框架.我没有足够的时间复制所有组件,重新安排所有视觉组件并重新分配所有事件,对齐等等.所以,我已经复制了pas和dfm,打开并开始在文本编辑器中编辑它们(将TForm更改为Tframe等

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

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

解决方法

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

首先是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.

区别：

>框架作为更详细的评论告诉IDE应该使用哪个设计师
>表格可以自动创作

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

Frame没有这些属性：

>标题
> ClientHeight
> ClientWidth
>颜色
> Font.Charset
> Font.Color
> Font.Height
> Font.Name
> Font.Style
> OldCreateOrder
> PixelsPerInch
> TextHeight

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

> OnCreate
> OnDestroy

Frame没有像这样的全局变量：

var
  Form1: TForm1;

框架从TFrame下降,而形式从TForm下降.

注意：使用Frame / Form继承,您的步骤会变得更长.

–jeroen

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!