现在还有个问题,我的程序编译成功了,出现了主窗口,但是一点登陆按钮,
(登陆窗口动态建立
procedure TForm1.N2Click(Sender: TObject);
begin
Form2 :=Tform2.Create(nil);
form2.Show;
end;)系统报错
不能在string中使用null 程序终止,use step or run to continue ,可是我退出delphi
双击刚才编译的成的.exe文件,程序可以正常使用,请问为什么,
(登陆窗口动态建立
procedure TForm1.N2Click(Sender: TObject);
begin
Form2 :=Tform2.Create(nil);
form2.Show;
end;)系统报错
不能在string中使用null 程序终止,use step or run to continue ,可是我退出delphi
双击刚才编译的成的.exe文件,程序可以正常使用,请问为什么,
Form2 :=Tform2.Create(Application);
From2.Show;
var Form22:TForm2;
begin
Form22 :=Tform2.Create(nil);
form22.Show;
end;http://www.csdn.net/cnshare/soft/11/11463.shtm
改成Form2 :=Tform2.Create(Application);
yyy1020(yyy1020)我照你说的改了,还是不行
现在procedure TForm1.N2Click(Sender: TObject);
begin
Form2 := Tform2.Create(Application);
form2.Show;
end;
还是不行
Form2:Tform;
begin
form2:=tform.create(nil);
form2.show;
form2.Position:= poDesktopCenter;
end;
(登陆窗口动态建立
procedure TForm1.N2Click(Sender: TObject);
begin
Form2 :=Tform2.Create(nil);
form2.Show;
end;)系统报错
不能在string中使用null 程序终止,use step or run to continue ,可是我退出delphi
双击刚才编译的成的.exe文件,程序可以正常使用,请问为什么,
楼上 fbt118(007) 大侠,请问加var Form2:Tform;,干什么,我这是动态建立窗口呀
诚心请教
begin
Application.CreateForm(TForm2 , Form2 );
Form2 .show;
end
else
Form2 .show;
var Form22:TForm2;
begin
Form22 :=Tform2.Create(application);
try
form22.Show;
except
form22.free;
end;
end;
或是
Form22 :=Tform2.Create(application);
try
form22.Showmodal;
finally
form22.free;
end;
楼上那个大侠,请问你那样改,是为什么,成心请教,改了还是不行(改成application)
create是tcomponent的方法语法如下:
constructor Create(AOwner: TComponent);其中AOwner是该对象的父对象,按钮的父对象是form,窗口的父对象是Application。
你给出的应该是正确的,问题可能是出在别的地方,在这里体现出来。
form22被free了那firstpaul(瞬间爱) 要实现的功能怎么办呢?