Delphi中的FormCreate问题

Question

我正在使用其他人的代码，并且正在添加一个新表单

所以，我已经创建了该表单，我可以打开它，使用按钮和列表等，但我在 formcreate 上执行操作时遇到问题。

我通过这样做来制作表单：

procedure TModelForm.RepeatOpen(Sender: TObject);
var
 DefForm : TForm5;
begin
 DefForm := TForm5.Create(Self);

 Self.Visible := False;
 try
  DefForm.ShowModal;
 finally
  Self.Visible := True;
  DefForm.Release;
 end;
end;

在我的 TForm5 中，我有一个程序

procedure TForm5.FormCreate(Sender: TObject);
begin
 inherited;
 RunList := CModelList.Create;
 RunList.ReadData;
 RunList.FillList(ListBox1.Items);
end;

，但它没有执行任何

我也

procedure TForm5.PopulateListClick(Sender: TObject);
begin
 RunList := CModelList.Create;
 RunList.ReadData;
 RunList.FillList(ListBox1.Items);
end;

分配给按钮的操作，这实际上可以工作并填充我的列表框，

我一直在网上查找它并且似乎没有 OnCreate 函数，有一种方法可以覆盖它，但似乎应该有一种方法来定义首次创建框架时发生的情况

，我使用 FormCreate 的原因是因为这就是我正在使用的代码是正在做，而且似乎有效，

谢谢！

Answer 1

您可能忘记将 FormCreate 分配给 OnCreate。就我个人而言，我会通过重写构造函数来实现这一点，从而保持 .dfm 形式不受影响。

顺便说一句，我想对您编写的代码进行评论：

DefForm := TForm5.Create(Self);
Self.Visible := False;
try
  DefForm.ShowModal;
finally
  Self.Visible := True;
  DefForm.Release;
end;

您不需要为 DefForm 分配所有者，因为您正在承担清理任务，尽管它通常不会对指定一个所有者。更重要的是，try/finally 尝试做两项工作，但实际上只能做一项。不需要调用Release，您只需调用Free即可。

我会这样写：

DefForm := TForm5.Create(nil);
try
  Self.Visible := False;
  try
    DefForm.ShowModal;
  finally
    Self.Visible := True;
  end;
finally
  DefForm.Free;
end;

Answer 2

您的意思是您的事件处理程序没有执行吗？
如果是这样，您是否可能只是忘记将过程分配给表单的 OnCreate 属性？

Answer 3

网上查了一下，确实如此
好像没有OnCreate
函数，有一种方法可以覆盖
但似乎应该有一个
方法来定义当发生什么时
首先创建框架

好，我在这里有点困惑。您是在谈论表单还是框架？窗体有 OnCreate 处理程序，但框架没有。如果您想在创建框架时发生一些事情，请重写构造函数。

constructor TMyFrame.Create(AOwner: TComponent);
begin
 inherited Create(AOwner);
 RunList := CModelList.Create;
 RunList.ReadData;
 RunList.FillList(ListBox1.Items);
end;

同样，框架没有 OnDestroy，因此如果需要清理任何内容，请确保覆盖析构函数。