作业帮 > 综合 > 作业

delphi 提示variable "form2"might not have been initialized.

来源:学生作业帮 编辑:灵鹊做题网作业帮 分类:综合作业 时间:2024/04/19 17:35:12
delphi 提示variable "form2"might not have been initialized.
一运行就提示错误并显示progect1
program Project1;
uses
Forms,
Unit1 in 'Unit1.pas' {Form1};
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TForm1,Form1);
Application.Run;
end.
在主程序中引用了form2
implementation
uses midaslib,Unit2,Unit3,unit4 ;
.
.
rocedure TForm1.Button1Click(Sender:TObject);
var i,y1,m1,y2,m2:integer;
form2:Tform2;
begin
try
form2:=Tform2.Create(self);
form2.ShowModal ;
.
.
form2.free
delphi 提示variable
DELPHI主菜单:prooject>Options>forms页,在auto-create forms列表框中,将form2移动到Available forms列表框中,就不会出现那提示了.
再问: 在Available forms列表框中只有form1.
再答: 不对,form1应该在auto-create forms列表框中;form2应该在Available forms列表框中。
再问: form1在auto-create forms列表框中;form2两个列表框都不在。
再答: 哦,你的form2不在工程里,先prooject>add to prooject,选中form2的.pas文件,增加该文件到工程。这时工程文件会出现如下改变 program Project1; uses Forms, Unit1 in 'Unit1.pas' {Form1}; Unit2 in 'Unit2.pas'{Form2}; 然后点击一下form1,再file>use unit 将form的单元文件加入到form1的单元文件中,这样,form1就可以调用form2单元了
再问: 解释非常详细~!谢谢!