最幼稚的问题快来看看(100分)

S

saith

Unregistered / Unconfirmed
GUEST, unregistred user!
新手上路,望各位大侠指个明路,谢谢!
再帮我看看一下句子那里出错了,自己垃圾呀~~~
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
try
Application.CreateForm(TForm3, Form3);
form3.ShowModal;
form3.Free
except;
application.MessageBox(0,'不能创建加载窗体','发生错误',MB_OK + MB_ICONSTOP);
end;
Application.Run;
end.
 
J

JonnyZheng

Unregistered / Unconfirmed
GUEST, unregistred user!
begin
Application.Initialize;
try
Application.CreateForm(TForm3, Form3);
form3.Show;
form3.Update;
Application.ProcessMessages;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
finally
form3.Free
end;
Application.Run;
end.
 
J

Johnny_du

Unregistered / Unconfirmed
GUEST, unregistred user!
你需要在Uses中引用Windows单元还有就是Application.MessageBox的参数个数不对,示例代码如下:
program Project1;
uses
Forms,Windows,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2},
Unit3 in 'Unit3.pas' {Form3};
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
try
Application.CreateForm(TForm3, Form3);
form3.ShowModal;
form3.Free
except;
application.MessageBox('不能创建加载窗体','发生错误',MB_OK + MB_ICONSTOP);
end;
Application.Run;
end.
 
M

muhx

Unregistered / Unconfirmed
GUEST, unregistred user!
除了application.MessageBox这个过程引用的参数不多别的没有问题
application.MessageBox('不能创建加载窗体','发生错误',MB_OK + MB_ICONSTOP);
 
S

saith

Unregistered / Unconfirmed
GUEST, unregistred user!
实在感谢三位大侠!我会记得你们的!
 
S

saith

Unregistered / Unconfirmed
GUEST, unregistred user!

Similar threads

S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
I
回复
0
查看
531
import
I
I
回复
0
查看
558
import
I
S
回复
0
查看
793
SUNSTONE的Delphi笔记
S
顶部