procedure TForm1.FormCreate(Sender: TObject);
begin
form1.Caption:=form1.Caption +'+Create';
end;
procedure TForm1.FormActivate(Sender: TObject);
begin
form1.Caption:=form1.Caption +'+Activate';
end;
procedure TForm1.FormShow(Sender: TObject);
begin
form1.Caption:=form1.Caption +'+Show';
end;
运行结果:form1.caption:='Form1+Create+Show+Activate';
可见加载的顺序是
1、form1.Create
2、from1.Show
3、form1.Activate;