我有一些功能希望在我的应用程序完成初始化和主窗体被创建后执行。我曾经将代码（称其为ProcedureX）放在窗体的OnShow事件中，但我刚刚注意到它被调用了两次，因为OnShow事件会被调用两次。它会在主程序DPR调用时触发：
Application.CreateForm(TMainForm, MainForm) ;
正如我所预期的那样。但之后，当我从INI文件中读取包含屏幕位置的表单时，我会调用：
MainForm.position := poScreenCenter ;
看起来，这会再次触发OnShow事件。
我应该把调用ProcedureX的代码放在哪里？ProcedureX只能被调用一次，并且需要主窗体创建后才能执行。
如果您的代码仅需要在表单创建时运行一次（或者每个应用程序只创建一次表单），请将代码放置在表单的OnCreate事件处理程序中，这是自然的放置位置。
现在（从D3开始，我想），OnCreate事件会在AfterConstruction方法结束时触发。只有当您将OldCreateOrder设置为True（默认情况下为False）时，才可能会遇到问题，因为它会使OnCreate在Create构造函数的结尾处触发。
@Sertac，
不需要使用FRUNOnce字段；只需将OnShow设置为NIL作为FormShow方法的第一行即可。
顺便提一下，“运行一次”惯用法--在事件处理程序的第一行将事件处理程序字段设置为NIL--对于在表单完全初始化后让一些代码运行非常有用。将您的代码放在FormActivate方法中，并将OnActivate设置为NIL作为该方法的第一行。
当您第一次调用该过程时，可以测试并设置标志。如下所示：
type
TForm1 = class(TForm)
procedure FormShow(Sender: TObject);
private
FRunOnce: Boolean;
public
[...]
[...]
procedure TForm1.FormShow(Sender: TObject);
begin
if not FRunOnce then begin
FRunOnce := True;
ProcedureX;
end;
end;
在Application.CreateForm之后，您可以在DPR文件中添加一个过程。将所有需要初始化的代码放入该过程中。当您的应用程序中有多个表单时，此方法最有效。
此外，如果初始化需要很长时间，它会使程序显示在屏幕上，这样用户就会知道应用程序正在加载中。
示例：
PROGRAM MyProgram;
begin
Application.Initialize;
Application.CreateForm(TMyForm, MyForm);
MyForm.Show;
LateInitialize; <----------- here
Application.Run;
end.
type
{ TAppHelper }
TAppHelper
= Class helper for TApplication
Public Procedure Run;
End;
Procedure TAppHelper.Run;
begin
Unit1.MainForm.PreRun;
inherited Run;
end;
Procedure TAppHelper.Run;
begin
TTask.Run(
procedure
begin
sleep(10);
TThread.Synchronize(nil, procedure begin Unit1.MainForm.PreRun; end);
end
);
inherited Run;
end;
@Sertec，
如果你想让你的代码在每次取消隐藏事件中运行（你没有放置任何代码来重置frunonce字段），那么你的代码也不会起作用。
因此，你的方法需要重置frunonce字段，而我的方法需要设置OnShow=FormShow。除了你需要一个额外的字段之外，两种方法都是一样的。
OnShow上运行ShowJustOnce过程。每当用户导致重新显示表单时，我都必须运行UpdateInfo。我不能将处理程序设置为nil，因为'UpdateInfo'不会运行。我必须使用标志，否则'ShowJustOnce'将在每次重新显示表单时运行。 - Sertac Akyuz