现在很多软件的一个功能怎么实现？

[moonet]

就是在主窗体出现之前出现一幅画，我用了很多方法，但是总无法控制主窗体的出现，导致图片还没消失，主窗体就已经出现了，各位，谁能告诉我详细方法？？？

[hj_cn]

SHAPE窗体

[Liusp]

在工程文件中
先创建图片窗体

FormPic := Application.CreateForm(FormPic,TFormPic);
FormPic.Show;
FormPic.Update;

然后再创建主窗体

[Linux2001]

呵呵.就是启动界面吧,你先得保证那个窗口不在自启动列表中

[40Star]

而且使用了image
Form的autosize=true
image的autosize=true
form还要设成无边框的

[40Star]

而且使用了image
Form的autosize=true
image的autosize=true
form还要设成无边框的

[gototop99]

procedure TForm1.FormCreate(Sender: TObject);
begin
with TForm2.Create(Self) do
try
Show;
Update;
Sleep(1000);
finally
Free;
end;
end;


Form2 中弄上图片，就可以了。

[zws]

program PPMIS;

uses
Forms,
Windows,
SysUtils,
About in 'About.pas' {AboutBox},
fm in 'fm.pas' {Form1},
GetCPUID in 'GetCPUID.pas' {Form16},
login in 'login.pas' {Form13},
main in 'main.pas' {Form2},
Option in 'Option.pas' {Form14},
reg in 'reg.pas' {Form10},
reg1 in 'reg1.pas' {Form15};

{$R *.RES}
Var
hMutex:HWND;
Ret:Integer;

begin
Application.Initialize;
//设置日期格式
DateSeparator := '-';
ShortDateFormat:='yyyy-mm-dd';

form1:=Tform1.Create(form1);
form1.show;
form1.Update;
Application.Title := '《计划生育管理系统》';
hMutex:=CreateMutex(nil,False,'《计划生育管理系统》');
Ret:=GetLastError;
If Ret<>ERROR_ALREADY_EXISTS Then
Begin
Application.CreateForm(TForm13, Form13);
Application.CreateForm(TForm2, Form2);
Application.CreateForm(TAboutBox, AboutBox);
Application.CreateForm(TForm16, Form16);
Application.CreateForm(TForm14, Form14);
Application.CreateForm(TForm10, Form10);
Application.CreateForm(TForm15, Form15);
form1.Hide;
form1.Free;
Application.Run;
End
Else
begin
Application.MessageBox('《计划生育管理系统》正在运行中!','信息!',MB_OK);
end;
ReleaseMutex(hMutex);
end.