我在專案檔中將我自己作的form show出來

是照書本上的方式，但是show出的時間卻不久

馬上就消失了，請問一下，如果要讓時間加長的話

要用哪種方式

是不是要問這個？

試試看...我還沒試...應該可以吧
應該也有很多很多的方法...

program project;

uses
Forms,
Unit_main in 'Unit_main.pas' {Form_main},
Unit_Splash in 'Unit_Splash.pas' {Form_Splash};

{$R *.res}

begin

Application.Initialize;
Application.Title := '???';

Form_Splash:= TForm_Splash.Create(Application);
try
Form_Splash.Show;
Form_Splash.Update;
Application.CreateForm(TForm_main, Form_main);
finally
Form_Splash.Pause;
Form_Splash.Hide;
Form_Splash.Free;
Application.Run;
end;
end.

---

unit Unit_Splash;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;

type
TForm_Splash = class(TForm)
private
{ Private declarations }
public
procedure Pause;
end;

var
Form_Splash: TForm_Splash;

implementation

{$R *.dfm}

{ TForm_Splash }

procedure TForm_Splash.Pause;
begin
Sleep(1000);
end;

end.