Splash Screen

Det her er det der skal stå i din project1.dpr fil

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Splash},
  Unit2 in 'Unit2.pas' {Form2};

{$R *.res}

begin
  splash := tsplash.create(application);
  splash.show;
  application.Initialize;
  splash.update;
  repeat
  application.ProcessMessages;
  until splash.CloseQuery;
  splash.Free;
  Application.CreateForm(TForm2, Form2);
  Application.Run;
end.

den laver en splash screen der vises indtil form2 er færdig med at loade

og hvis du vil lave en splash screen der lukker efter et antal sekunder gør du sådan her

med det samme kode i dpr filen

procedure TSplash.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
canclose := not timer1.Enabled;
end;

procedure TSplash.Timer1Timer(Sender: TObject);
begin
timer1.Enabled := false;
end;

så sætter du bare timer1's interval til det antal sekunder der skal gå

du kan bare lave den som din første form designe den, pådens onshow event skriver al initialiserings kode til dit program, og slutter af med en form2.show; og en hide;

Hvordan laver man en splash screen?

Nu har jeg lavet en splash. Men programmet er lavet til at minimere ned i et tray icon. Så hvis jeg vil have en splash screen så kommer der bagefter en "tom" form. Hvis jeg så bagefter siger WindowState:= wsMinimized, minimerer programmet ikke til tray'en!!!! Håber i forstår hvad jeg mener.

Hvordan laver man en splash screen?

Nu har jeg lavet en splash. Men programmet er lavet til at minimere ned i et tray icon. Så hvis jeg vil have en splash screen så kommer der bagefter en "tom" form. Hvis jeg så bagefter siger WindowState:= wsMinimized, minimerer programmet ikke til tray'en!!!! Håber i forstår hvad jeg mener.

det kan du ikke i oncreate

det kan du ikke i oncreate

Det gør nok ingen forskel men den er i onshow.

det kan du ikke i oncreate


Det gør nok ingen forskel men den er i onshow.

du kan heller ikke i onshow

en ting du kan gøre er at sætte en timer til at minimere hvert milisekund

det kan du ikke i oncreate


Det gør nok ingen forskel men den er i onshow.

du kan heller ikke i onshow

en ting du kan gøre er at sætte en timer til at minimere hvert milisekund

Det virker nu. Satte jo en hide efter splahscreenen.

Kan i hjælpe med en anden ting? Jeg vil have at man i programmet ( som lukker cd-skuffen når man lukker computeren ) skal kunne åbne og lukke cd-skuffen ved at dbl klikke på et ikon i trayen.
Kan man rette følgende kode så den virker ( virker ikke nu ).

procedure TForm1.CoolTrayIcon1DblClick(Sender: TObject);
begin
if closed then
mciSendString('Set cdaudio door open wait', nil, 0, 0);
else
mciSendString('Set cdaudio door closed wait', nil, 0, 0);
closed:= true;
end;

Det virker de to første gange men ellers ikke!

Du mangler begin og end

Hilsen Mark Jensen

DNA er naturens array