Delphi - 在运行表单 Create 之前创建控件？

Question

好吧，我的问题如下：

我有一个 Delphi 5 应用程序，我基本上将其移植到 Delphi 2010（用最新版本替换旧组件，修复不可避免的 Ansi/Unicode 字符串问题等），并且我遇到了有点麻烦。

创建我们的其中一份表单后，就会发生访问冲突。经过查看后，我得出的结论是，这是因为 Create 中调用的 setter 之一尝试更改尚未创建的表单上的对象的属性。

我已经将其精简了一点，但代码基本上如下所示：

在表单声明中：

property EnGrpSndOption:boolean read fEnGrpSndOption write SetGrpSndOption;

在表单的 Create 中：

EnGrpSndOption := false;

在实现中：

procedure Myform.SetGrpSndOption(const Value: boolean);
begin
  fEnGrpSndOption := Value;
  btGrpSnd.Visible := Value;
end;

通过在 btGrpSnd.Visible 之前添加 ShowMessage(BooltoStr(Assigned(btGrpSend), true)) ： =值，我确认问题是btGrpSnd还没有创建。

btGrpSend 是一个 LMDButton，但我很确定它不太相关，因为它甚至还没有被创建。

虽然我意识到我可能应该只在确认分配了控件后才分配一个值，但这只会导致 create 中设置的值未设置为实际控件。

所以我想做的是找到一种方法来确保在运行“创建”之前创建窗体上的所有控件。

任何有关此操作的帮助或有关 Delphi 如何创建表单的信息将不胜感激。 它在 Delphi 5 中可以正常工作，所以我想应该在版本之间的更改列表中的某个位置提及其原因。毕竟，Delphi 2010 比 Delphi 5 新很多。

Answer 1

就像托比亚斯提到的（但主张反对），您可以更改创建顺序（在更改创建顺序的表单中）。

但您也可以在 setter 方法中检查表单是否正在创建（form.componentstate 中的 csCreating）。如果是这样，您必须自己存储该属性值，并在 AfterConstruction 中处理它。

Answer 2

根据您的评论，您在设计时放置它时得到了 AV，这意味着控件本身存在问题，并且尚未正确向前移植。要在受控环境下在运行时重现它，您需要编写一个像这样的小程序：

使用单一表单创建一个新的 VCL 应用程序。在窗体上放置一个 TButton。在按钮的 OnClick 上，执行如下操作：

var
   newButton: TLMDButton;
begin
   newButton := TLMDButton.Create(self);
   newButton.Parent := self;
   //assign any other properties you'd like here
end;

在构造函数上放置一个断点并跟踪它，直到找到导致访问冲突的原因。

编辑：好的，通过查看评论，我想我们找到了您的问题！

窗体的子控件通过读取 DFM 文件来初始化。当您将控件更改为 TCustomForm 时，您是否提供了新的 DFM 来定义它？如果没有，您需要重写表单的构造函数并创建控件并手动定义它们的属性。没有“魔法”可以为您初始化它。

Answer 3

您的 Create 始终在祖先构造函数之前首先被调用。这就是构造函数的工作原理。在进行其余的初始化之前，您应该能够调用继承的构造函数：

constructor MyForm.Create(Owner: TComponent);
begin
  inherited;
  EnGrpSndOption := False;
end;

但是，有一种更好的方法来指示您想要实现的目标。您的类正在从 DFM 资源加载属性。完成后，它将调用名为 Loaded。它通常用于通知所有孩子一切都准备好了，因此如果他们中的任何一个在表格上保存了对其他孩子的引用，他们知道此时使用这些引用是安全的。您也可以在表单中覆盖它。

procedure MyForm.Loaded;
begin
  inherited;
  EnGrpSndOption := False;
end;

不过，这通常不会对您的情况产生太大影响。在表单完成从 DFM 资源加载自身之后，立即从构造函数调用 Loaded。该资源告诉表单它应该为自己创建的所有控件。如果您的按钮没有被创建，那么它可能没有在 DFM 中正确列出。 DFM 中列出的控件可能在类中没有相应的字段。另一方面，如果某个已发布的字段在 DFM 中没有相应的条目，则 IDE 应向您发出警告，并在您每次在表单设计器中调出该声明时建议删除该声明。以文本形式查看 DFM，并确认确实存在名为 btGrpSnd 的控件条目。

Answer 4

这是否足以让您继续下去：

if Assigned(btGrpSnd) and btGrpSnd.HandleAlowned then
btGrpSnd.Visible := ...

Answer 5

我看到两种可能性：在将 Value 分配给 Visible 属性之前检查 btGrpSnd 是否为零。如果它为零，您可以：

• 不设置属性
• create btGrpSnd

我不会弄乱创建顺序。它更复杂，并且可能会因进一步的更改而中断。

---

根据您的评论：您可以检查您是处于设计模式还是运行模式。在设置可见性之前检查您是否处于设计时间。

if not (csDesigning in Componentstate) then
begin
  btGrpSnd:=Value;
end;

---

回答您的评论：

这样做：

procedure Myform.SetGrpSndOption(const Value: boolean); 
begin 
  fEnGrpSndOption := Value; 
  if btGrpSnd<>nil then btGrpSnd.Visible := Value; 
end; 

以及一个附加属性设置 btGrpSnd。如果它被设置为一个值<> nil，也设置 fEnGrpSndOption 中安全的可见性。

如果不需要在 Myform 外部设置 btGrpSnd，请创建一个创建所有内容的 init 过程。例如：

constructor Myform.Create(...)
begin
  init;
end;

procedure init
begin
  btGrpSnd:=TButton.Create;
  ...
end;

procedure Myform.SetGrpSndOption(const Value: boolean); 
begin 
 fEnGrpSndOption := Value; 
 if btGrpSnd<>nil then init;
 btGrpSnd.Visible := Value; 
end; 

这仍然比依赖于将来可能会破坏的一些更改的初始化代码黑客更好。