在Delphi中调用一个过程

Question

我有一个Sender: TObjectparamater 程序

procedure TForm1.FormCreate(Sender: TObject);

我怎样才能再次调用此程序？

此版本不起作用:

TForm1.FormCreate(Sender: TObject);

提前致谢.

Answer 1

我假设您希望调用FormCreatea的实例的过程TForm1.

如果你在课堂内,你可以做FormCreate(Self)或FormCreate(nil)(或者你可以传递任何TObject实例作为参数)TForm1.否则,你必须写Form1.FormCreate(Self)或Form1.FormCreate(nil)或类似的,其中Form1是适当的情况下的TForm1.

无论如何,FormCreate稍后调用该程序并不是特别"优雅" .实际上,该名称清楚地表明在创建表单时会调用该过程.

如果你的逻辑的特定部分FormCreate,需要在其他阶段的方法,你根本不想重复的代码,你应该实现的是一块在一个单独的方法(过程或函数)的形式,并调用它FormCreate,以及在必要时,程序的其他部分.

但是,您可能最好还是将业务逻辑的这一部分移开FormCreate.我们通常做的FormCreate是创建/初始化稍后未初始化/销毁的对象FormDestroy(如果需要).所以,仔细考虑一下你在做什么FormCreate,也许对于你在这种方法中实现的部分或全部动作,有一个更好的,逻辑上更合适的地方.