如何让用DELPHI做的程序在程序运行是显示一个图片?就比如DELPHI5的启动画面

Question

RT

Answer 1

在程序進行時做一個Flash窗體 讓它在主窗體運行之前創建
這方面的問題你可搜索一下以前的貼子

Answer 2

在project1中加入代码：
begin
form2:=tform2.create(application);
form2.show;
form2.update;
application.initialize;
application.createform(tform1,form1);
application.run;
end;form1的oncreate事件：
var
i:integer;
begin
i:=0;
while i<1000000 do
i:=i+1;
form2.close;
form2.free;
end;form2.borderstyle=bsnone,form2中有一图片.把form2添加到available中。即可。

Answer 3

教你一种最简单的方法
new->application
new->form
project->options->将Form2由自动创建改为手动创建Form2的borderstyle设置为bsNone;
里面加上一个image
align:=alClient;然后在unit1中加入
implementations
uses unit2;Form1 OnShow里面加如下代码
  with TForm2.Create(Form2) do
   begin
     Show;
     refresh;
     Sleep(3000);//控制显示时间
     Free;
   end;