delphi中application的事件在哪里写代码？

Question

请问下，delphi中application的事件在哪里写代码？比如我要在application的onactive的事件中写代码，在哪里写。

Answer 1

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    procedure myAppActive(Sender: TObject);
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin
        Application.OnActivate := myAppActive;
end;procedure TForm1.myAppActive(Sender: TObject);
begin
        ShowMessage('aaa');
end;end.
你看下project1的代码就明白了
program Project1;uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};{$R *.res}begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.可以利用Form1创建的时候，可以设置Application的属性，然后才是run

Answer 2

Application.Initialize;
Application.OnActivate := PubUnit.OnActivate;  
Application.CreateForm(TForm1, Form1);
Application.Run;
直接这样子写也可以的，