Delphi (1.) - Jak zobrazit startovací obrázek

Startuje se váš program moc dlouho? Obsluha omylem spustí program dvakrát, protože si myslí že špatně stiskla tlačítku myši, a on teprve nestačil naběhnout.Je tu pro vás řešení - stejně tak jako delphi mají svůj ůvodní obrázek, který se ihned načte, tak i takový může mít vaše aplikace. Otázka je jak to udělat?

Řešení je prosté:
1) Nakreslit pěkný spouštěcí obrázek
2) Vytvořit formulář, do něj dát TImage s tím pěkným obrázkem a nastavit mu Align:=AlClient.
3) Nastavit velikost formuláře tak, aby obrázek vyplňoval celou plochu formluláře
4) Nastavit formuláři Position:=PoScreenCenter a BorderStyle:=BsNone - tím dosáhneme že obrázek bude uprostřed obrazovky a nebude mít okolo sebe oknový rámeček, ani horní "modrou lištu s tlačíitky minimalizace, maximalizace a zavřit
5) Zrušit formuláři v Project Options AutoCreate
6) Příslušně upravit ProjectSource - vyzálohovat dobré

program Zkouska;
uses
  Forms,
  uForm1 in 'Form1.pas' {Form1},
  uData1 in 'Data1.pas' {Data1: TDataModule};

{$R *.RES}
begin
  FormLoading := TformLoading.Create(Application)
  FormLoading.Show;
  
  //zprovozní animace atd na úvodním startovacím okně
  FormLoading.Update;

  Application.Initialize;
  Application.CreateForm(TData1, Data1);
  Application.CreateForm(TForm1, Form1);

  FormLoading.Hide;
  FormLoading.Free;

  Application.Run;
end.

Vyšlo 16.08.2001, v blogu: 0 1 2 3 4 5 6 7 8

Děkuji, že jste se rozhodl(a) přečíst tento článek. Budu rád i za komentář. Pokud Vás tento článek zaujal a rádi byste jej doporučili ostatním, podpořte mně prosím tím, že věnujete minutku svého času a uděláte mi reklamu na linkuj.cz, vybrali.sme.sk či jagg.cz. Přeji příjemné čtení

Poslední články

• OpenGL (1.) - Čtverec s interpolací barvy
• 3D Studio MAX (4.) - Jak vytvořit laser
• Delphi (4.) - Zajímavé zdrojáky
• 3D Studio MAX (3.) - Tvorba 3D krajiny
• Delphi (3.) - Detekce typu procesoru, jeho frekvence a využití
• Delphi (2.) - Práce se soubory, *.ini soubory a registry
• Photoshop tutoriály (1.) - Ohnivé koule
• Delphi (1.) - Jak zobrazit startovací obrázek
• 3D Studio MAX (2.) - Jak na ohnivé explose
• 3D Studio MAX (1.) - Panel nástrojů ve 3D Studiu MAX

Diskuse k blogu