我正在使用 Delphi XE2（更新 3）。我有一个非常大的项目，当我编译一个包时，它有时会使 Delphi IDE 崩溃。我已经能够将其简化为一个复制问题的简单项目。
问题总结
当您使用 VCL 框架在包之间进行可视化表单继承并且祖先框架包含标准控件时，一切正常。
当您做同样的事情时，除了将祖先框架中的标准控件替换为控件的子类之外，您很容易使 Delphi IDE 崩溃。
您所要做的就是编译包含祖先框架的包，同时在设计模式下查看 VCL 框架，它是另一个包的成员，其中 VCL 框架从具有子类控件的祖先框架下降/继承。
我已经尝试对 aTClientDataSet和 a 进行子类化TEdit。两者都表现出相同的行为。
问题
在可以使用标准控件的情况下，为什么在包之间进行可视化表单继承时不能使用子类控件？
重现问题的步骤：
- 创建一个可以保存所有项目文件的文件夹
- 在文件夹中为下面包含的五个文件中的每一个创建文件
- 启动 Delphi 并关闭所有文件
- 单击“文件|新建|其他|Delphi项目|包”
- 将步骤 1 中的文件夹中的包保存为“Package1”
- 添加
CDS2.pas到包1 - 构建 Package1（添加建议的包）
- 安装 Package1（将注册 TMyCDS）
- 添加
BaseForm.pas到 Package1（添加建议的 VCL 框架） - 构建 Package1（添加建议的包），再次构建
- 右键单击
ProjectGroup1并选择“添加新项目 | Delphi 项目 | 包” - 将步骤 1 中的文件夹中的新包保存为“Package2”
- 添加
SecondFrame.pas到 Package2（添加建议的 VCL 框架） - 构建 Package2（添加建议的包）
- 在设计模式下查看
SecondFrame（例如，按 F12） - 保存任何更改（包括项目组，因为 Delphi 即将崩溃）
- 在查看
SecondFrame设计模式时，构建Package1
构建失败，我收到此错误：
[DCC Error] E2161 Error: RLINK32: Error opening file "C:\[folder]\BaseFrame.dfm"
如果我在步骤 17 中编译而不是构建，它通常会编译而没有错误。但是，有时当我尝试在设计模式下重新显示SecondFrame时，我会收到此错误：
Access violation at address 5003C976 in module 'rtl160.bpl'. Read of address FFFFFFC4.
[5003C976]{rtl160.bpl } System.GetDynaMethod (Line 13480, "System.pas" + 7) + $0
[500ADE1D]{rtl160.bpl } System.Classes.IsDefaultObjectProp (Line 9525, "System.Classes.pas" + 9) + $B
[500AE2C1]{rtl160.bpl } System.Classes.IsDefaultPropertyValue (Line 9651, "System.Classes.pas" + 29) + $A
[500AECA7]{rtl160.bpl } System.Classes.TWriter.WriteProperty (Line 9893, "System.Classes.pas" + 12) + $7
[5044739A]{vcl160.bpl } Vcl.Forms.TScrollingWinControl.IsTouchPropertyStored (Line 3200, "Vcl.Forms.pas" + 1) + $4
[503432C6]{vcl160.bpl } Vcl.Controls.TCustomTouchManager.IsTabletOptionsStored (Line 17359, "Vcl.Controls.pas" + 1) + $9
[500AE08D]{rtl160.bpl } System.Classes.IsDefaultMethodProp (Line 9606, "System.Classes.pas" + 4) + $4
[500AE0ED]{rtl160.bpl } System.Classes.IsDefaultMethodProp (Line 9609, "System.Classes.pas" + 7) + $24
[500AE2CC]{rtl160.bpl } System.Classes.IsDefaultPropertyValue (Line 9653, "System.Classes.pas" + 31) + $A
[5033A7E9]{vcl160.bpl } Vcl.Controls.TWinControl.GetChildren (Line 12359, "Vcl.Controls.pas" + 1) + $3
[5003C9A6]{rtl160.bpl } System.@CallDynaInst (Line 13519, "System.pas" + 4) + $0
[50447AE1]{vcl160.bpl } Vcl.Forms.TCustomFrame.GetChildren (Line 3450, "Vcl.Forms.pas" + 6) + $6
[500AD658]{rtl160.bpl } System.Classes.TWriter.WriteData (Line 9270, "System.Classes.pas" + 54) + $2
[500B4423]{rtl160.bpl } System.Classes.TComponent.ValidateRename (Line 12845, "System.Classes.pas" + 0) + $F
[500AD317]{rtl160.bpl } System.Classes.TWriter.WriteComponent (Line 9200, "System.Classes.pas" + 20) + $9
[500AD761]{rtl160.bpl } System.Classes.TWriter.WriteFloat (Line 9298, "System.Classes.pas" + 1) + $3
[20FEC1AB]{designide160.bpl} ComponentDesigner.TComponentRoot.CreateRootInstance (Line 2288, "ComponentDesigner.pas" + 24) + $7
[20FEBFD7]{designide160.bpl} ComponentDesigner.TComponentRoot.CreateRootAs (Line 2255, "ComponentDesigner.pas" + 2) + $4
[20FEBEFA]{designide160.bpl} ComponentDesigner.TComponentRoot.CreateFromStream (Line 2235, "ComponentDesigner.pas" + 7) + $9
[20FEEF41]{designide160.bpl} ComponentDesigner.TComponentRoot.Resurrect (Line 3434, "ComponentDesigner.pas" + 11) + $6
[2104F16E]{designide160.bpl} EmbeddedDesignerForm.TFormEditorView.Display (Line 144, "EmbeddedDesignerForm.pas" + 4) + $5
[2075E399]{coreide160.bpl} EditorForm.TEditWindow.ShowView (Line 4294, "EditorForm.pas" + 49) + $F
[20758D44]{coreide160.bpl} EditorForm.TEditWindow.SwitchViews (Line 2147, "EditorForm.pas" + 6) + $9
[2075889A]{coreide160.bpl} EditorForm.TEditWindow.ViewBarChange (Line 1996, "EditorForm.pas" + 2) + $1
[504C0F8D]{vcl160.bpl } Vcl.Tabs.TTabSet.CanChange (Line 1910, "Vcl.Tabs.pas" + 3) + $9
[504C0FDE]{vcl160.bpl } Vcl.Tabs.TTabSet.SetTabIndex (Line 1921, "Vcl.Tabs.pas" + 5) + $0
[504C126A]{vcl160.bpl } Vcl.Tabs.TTabSet.MouseDown (Line 2033, "Vcl.Tabs.pas" + 6) + $2
[50332E54]{vcl160.bpl } Vcl.Controls.TControl.DoMouseDown (Line 7343, "Vcl.Controls.pas" + 7) + $2B
[50332EA3]{vcl160.bpl } Vcl.Controls.TControl.WMLButtonDown (Line 7354, "Vcl.Controls.pas" + 7) + $E
[5033280D]{vcl160.bpl } Vcl.Controls.TControl.WndProc (Line 7204, "Vcl.Controls.pas" + 91) + $6
[5033715B]{vcl160.bpl } Vcl.Controls.TWinControl.WndProc (Line 9976, "Vcl.Controls.pas" + 152) + $6
[5003D4F7]{rtl160.bpl } System.TMonitor.TryEnter (Line 14786, "System.pas" + 10) + $0
[5003D06C]{rtl160.bpl } System.TMonitor.Enter (Line 14489, "System.pas" + 4) + $2
[5003CF10]{rtl160.bpl } System.TMonitor.CheckOwningThread (Line 14411, "System.pas" + 2) + $0
[5003D216]{rtl160.bpl } System.TMonitor.Exit (Line 14600, "System.pas" + 9) + $7
[5003D24F]{rtl160.bpl } System.TMonitor.Exit (Line 14614, "System.pas" + 2) + $7
[50313627]{vcl160.bpl } Vcl.Graphics.FreeMemoryContexts (Line 7043, "Vcl.Graphics.pas" + 12) + $8
[503367B0]{vcl160.bpl } Vcl.Controls.TWinControl.MainWndProc (Line 9689, "Vcl.Controls.pas" + 3) + $6
[503367C5]{vcl160.bpl } Vcl.Controls.TWinControl.MainWndProc (Line 9692, "Vcl.Controls.pas" + 6) + $0
[503369F0]{vcl160.bpl } Vcl.Controls.TWinControl.IsControlMouseMsg (Line 9753, "Vcl.Controls.pas" + 9) + $25
[5033715B]{vcl160.bpl } Vcl.Controls.TWinControl.WndProc (Line 9976, "Vcl.Controls.pas" + 152) + $6
[503367B0]{vcl160.bpl } Vcl.Controls.TWinControl.MainWndProc (Line 9689, "Vcl.Controls.pas" + 3) + $6
[500B6030]{rtl160.bpl } System.Classes.MakeObjectInstance (Line 13921, "System.Classes.pas" + 0) + $0
[504525E7]{vcl160.bpl } Vcl.Forms.TApplication.ProcessMessage (Line 10164, "Vcl.Forms.pas" + 23) + $1
[5045262A]{vcl160.bpl } Vcl.Forms.TApplication.HandleMessage (Line 10194, "Vcl.Forms.pas" + 1) + $4
[5045295D]{vcl160.bpl } Vcl.Forms.TApplication.Run (Line 10331, "Vcl.Forms.pas" + 26) + $3
无论发生什么错误，当您尝试执行几乎任何其他操作时，Delphi 都会抛出各种随机访问冲突。消除错误后，我关闭了 Delphi。然后我使用任务管理器杀死 BDS.EXE（以避免许多额外的 A/V 错误）。
我尝试如下调试Delphi：
调试：
- 重新启动德尔福
- 确保
SecondFrame没有打开 - 删除/重新安装 Package1 并重建它
- 双击 Package1，使其成为活动项目
- 将调试主机应用程序设置为 Delphi ( C:\[path]\RAD Studio\9.0\bin\bds.exe )
- 使用调试 (F9) 运行 Package1
- 一旦 Delphi 第二次打开（在第二次实例中），请确保您的项目组已打开，然后再打开
SecondFrame - 确保
SecondFrame处于设计模式（例如，按 F12）然后编译Package1
有时 Delphi 的第一个实例会捕获在第二个实例中引发的异常，有时则不会。当它发生时，异常和堆栈跟踪如下所示：
First chance exception at $5003C97D. Exception class $C0000005 with message 'access violation at 0x5003c97d: read of address 0x00000001'. Process bds.exe (8912)
:5003c97d GetDynaMethod + $D
:20fd45a6 TPairings.AddChildren + $46
:20fd4351 TPairing.SetComponent + $2D
:20fed656 TComponentRoot.GetRootStream + $5E
:20ff9d26 TRootStream.Create + $7A
:20ff2704 TComponentRoot.FormFileOpen + $14
:21b4231b ; C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\bin\delphicoreide160.bpl
:204e7a1e ; C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\bin\coreide160.bpl
:20614f2f ; C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\bin\coreide160.bpl
:206150f9 ; C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\bin\coreide160.bpl
:20615173 ; C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\bin\coreide160.bpl
:066d1339 ; C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\bin\dcc32160.dll
:1ac81dea ; C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\bin\RLINK32.DLL
:2a242a24
.
以下是在上述重现问题的步骤中使用的 5 个文件：
BaseFrame.dfm
object BaseFrameClass: TBaseFrameClass
Left = 0
Top = 0
Width = 320
Height = 240
TabOrder = 0
object MyCDS1: TMyCDS
Aggregates = <>
Params = <>
Left = 8
Top = 8
end
end
BaseFrame.pas
unit BaseFrame;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
Vcl.Graphics, Vcl.Controls, Vcl.Forms, Data.DB, Datasnap.DBClient, CDS2;
type
TBaseFrameClass = class(TFrame)
MyCDS1: TMyCDS;
end;
implementation
{$R *.dfm}
end.
CDS2.pas
unit CDS2;
interface
uses
System.SysUtils, System.Classes, Data.DB, Datasnap.DBClient;
type
TMyCDS = class(TClientDataSet)
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('Test', [TMyCDS]);
end;
end.
第二帧.dfm
inherited SecondFrameClass: TSecondFrameClass
end
第二帧.pas
unit SecondFrame;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, BaseFrame, Data.DB, Datasnap.DBClient, CDS2;
type
TSecondFrameClass = class(TBaseFrameClass)
end;
implementation
{$R *.dfm}
end.