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,否则出现错误!
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 [email protected] 举报,一经查实,本站将立刻删除。