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;
formcreate是动态创建一个窗口 formshow是显示已经创建的窗口。 同意,窗口必须先创建才能show,否则出现错误!