program Project1;uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2};{$R *.res}
var
Form2: TForm2;
i, j: integer;begin
Application.Initialize;
try
Form2 := TForm2.Create(Application);
Form2.Show;
for i := 1 to 1000000000 do
finally
Form2.Free;
end;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.只能显示logo窗体和颜色,我在logo窗体上放了一个label上面写的文字,为何显示不出来?急!!!!
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2};{$R *.res}
var
Form2: TForm2;
i, j: integer;begin
Application.Initialize;
try
Form2 := TForm2.Create(Application);
Form2.Show;
for i := 1 to 1000000000 do
finally
Form2.Free;
end;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.只能显示logo窗体和颜色,我在logo窗体上放了一个label上面写的文字,为何显示不出来?急!!!!
try
Form2 := TForm2.Create(Application);
Form2.Show;
Form2.Refresh;
for i := 1 to 1000000000 do
finally
Form2.Free;
end;
将Application .ProcessMessages ;回到循环里。