修改 Application 后，BPL 里每个组件都得手动 parent := nil，怎办？

2019-07-22 04:07:59 110 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

微机原理--输入输出实验--emu8086 通过实验，验证了基本要求，实现了一位数加法运算的功能，同时实现了两位数加法运算的功能，还有一位数的除法。思考题（1）输入输出数据和计算用数据的区别：从键盘上输入以及输出的数据要在通过转化为计算机所识别的二进制的数字，和计算所用的数据之间相差30H。（2）单字符输入输出和串输入输出的不同之处：单字符的输入使用1号功能键，输出通过2号功能调用，且待显示字符送给DL寄存器；串输入使用0A功能，输出通过9号功能调用，DS:DX指向待显示字符串，且字符串必须以“$”结束。阅读详情

环境是 Delphi 7 + XP，问题的一些相关的情况如下：
1、需要在程序启动之前做一些前置操作，我修改了Application（Controls.pas），于是工程不能 build with vcl。
2、新建了BPL，包含有一些自定义的TNewFrame，继承自TFrame，通过类似如下的 function 加入到程序界面



function build(c : TWinControl) ： TNewFrame;

//……

begin

  f := TNewFrame.Create(c); 

  f.Parent := c; // ->这一句导致 AV

  result := f;

end;



export build;

问题是：程序关闭会AV。测试过有2种做法不会AV
1、程序在关闭前 f.Parent := nil，不会 AV；这样的话每个自定义的组件都得 parent := nil，
2、build with vcl，不会AV。可是这样就不能修改 Application 了

请问有什么方法，既可能修改 Application，又不用 parent := nil

PS：我的 Delphi 7 的 vcl 只有 dcp，没有 dpk，没法 build。

...全文