Splash Screen

Du kan da sagtens vælge kategori... efter, at du er kommet ind på søgesiden foretager du en ny søgning, og så får du kun resultater fra den valgte kategori...

nej jeg kan ikke

prøv selv at søge efter \"Splash Screen\"

Tilføj en unit 2 til dit projekt.

Der efter skal du fjerne den overe fra DPR filen.

en timer sættes på din form 1 og det følgende kode skrives :

uses
  unit2;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Form2 := TForm2.Create(Application);
  Timer1.Interval := 5000;
  Timer1.Enabled := true;
  Form2.Show;
  Form2.Update;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Form2.Close;
end;


Jens B

hmm... Det virker ikke borrisholt !

Min kode...


Uses
Main;

procedure TLogoForm.FormCreate(Sender: TObject);
begin
  LogoForm := TLogoForm.Create(Application);
  Timer.Interval := 5000;
  Timer.Enabled := True;
  LogoForm.Show;
  LogoForm.Update;
end;

procedure TLogoForm.TimerTimer(Sender: TObject);
begin
LogoForm.Close;
end;

prøv det her :

  Form2 := TForm2.Create(Application);
  Timer1.Interval := 5000;
  Timer1.Enabled := true;
  Form2.Show;
  SetWindowPos(Form2.Handle, HWND_TOPMOST,Form2.Left, Form2.Top,Form2.Width,Form2.Height,SWP_SHOWWINDOW);
  Form2.SetFocus;
  Form2.Update;


Jens B

Sådan nu virker det med denne kode:
Jeg putter den i DPR filen igen og fjerner den anden. =)

procedure TLogoForm.FormCreate(Sender: TObject);
begin
//  LogoForm := TLogoForm.Create(Application);
  Timer.Interval := 5000;
  Timer.Enabled := True;
  LogoForm.Show;
  LogoForm.Update;
end;

procedure TLogoForm.TimerTimer(Sender: TObject);
begin
LogoForm.Close;
end;

og så skal jeg jo også lige sige tak til borrisholt...

=)

/hand

Follow instructions:

- In your application create new form named SplashForm,
- make SplashForm Available form ( project/options/Forms )!
- set BorderStyle of Splashform to bsSingle!
- set Position of Splashform to poScreenCenter
- add to your application project the asterixed* lines below:

begin
* SplashForm := TSplashForm.Create(Application);
* SplashForm.FormStyle := fsStayOnTop;
* SplashForm.Show;
* SplashForm.Update;
Application.Initialize;
Application.Title := \'myprogram\';
Application.CreateForm(TForm1, Form1);
Application.Run;
end.

-Add into your application main form onShow event:

sleep(1000);
SplashForm.Hide;
SplashForm.free;