有一个任务:项目的所有形式(包括主形式)都应该启动一些创建过程(onCreate)。我决定创建自己的类 TBaseForm(TForm),在其中重写构造函数:
type
TBaseForm = class(TForm)
constructor create(AOwner: TComponent);
end;
constructor TBaseForm.create(AOwner: TComponent);
begin
inherited Create(AOwner);
//Что то делаю
end;
我没有更改 dpr 项目文件中的任何内容:
begin
Application.Initialize;
Application.MainFormOnTaskbar := True;
Application.CreateForm(TfmMain, fmMain);
Application.Run;
end.
在主窗体模块中我写道:
type
TfmMain = class(TBaseForm)
我在 TBaseForm 类的构造函数中的调试器中设置了一个中断,但由于某种原因我没有到达那里。为什么?那么如何正确设计这样的方案呢?我们如何确保项目的所有形式都绝对遵循某些特定程序?