Splash screen podróba ...

Qiub

2003-01-08 12:54:50
2003-01-08 12:54:50
10 komentarzy
1107 odsłon

Pierwsze co zastrzegam to to, że nie jest to jakiś profesionalny splash screen (np. taki jak zaprezentowany bodajże przez Sheitara) !!!

Opis:
Użyjemy dwóch formularzy (form) + na drugiej co tam dodatkowego chcemy...
Form1 - forma główna /nasz prog/
Form2 - forma "splash screen", które wyświetli się nam po odpaleniu aplikacji.

A więc ... odpalamy Delphiego (sprawdzane na 6,7 enterprise), otwiera się nam nowa forma ...
Mamy formę główną, klikamy na nią podwójnie, pojawia się nam kod żródłowy formy. Tam wpisujemy kodzik taki:

begin //ten kawałek będzie oryginalnie
//poniższy kod wklejamy, przepisujemy, czy jak tam chcecie
Form2:=TForm2.Create(nil);
Form2.ShowModal;
//tu możemy coś innego dorzucić - pętle, ale nie wiem czy jest sens
end; //koniec naszego dobrego

następnie dodajemy File/New/New Form
pojawi się nam nowa forma ... oryginalnie będzie nazwana Form2!
Na tej nowej formie robimy co chcemy, będzie to nasz powitalny splash screen.
Myślę, że powinno wsio działać. Chociaż zdażyło się mnie, że wypadł błąd, kompilator dowalił się o to, że nie ma formy o nazwie Form2 chociaż takowa była, ominąłem to w sposób taki : w interpretacji dodałem

uses Form2; //ewentualnie Unit2

Powinno działać ...

W razie czego: .
Dam przykładowy kodzik aplikacji.

unfa
• 2006-10-21 17:49

A zkąd i za ile masz "enterprise"??
:J

dzikimisiu
• 2005-06-26 11:15

dziex jas_dream za ten kod przyda mi sie do mojego edytora html;P:>;)

jas_dream
• 2003-06-14 09:58

"Sven" mam dla ciebie kodzik, na to aby po 5 sek. form2 się zamknął

wstaw "timer1" (zakładka System) i "ProgressBar1" (Win32), "Button1" oraz "Form2" (nowe okienko)

W timer1 - enabled ustaw na false
Interval = 1000

kliknij 2x na Button1 i wpisz pomiędzy begin a end

Form2.showmodal;
timer1.enabled := true;

ok a teraz kliknij 2x do timer1, pomiędzy begin a end wpisz:

ProgressBar1.Position := ProgressBar1.Position + 20;
if ProgressBar1.Position = 100 then
begin
form2.close;
timer1.enabled := false;
ProgressBar1.Position := 0;
end

I to by było na tyle :)
..:: www.pskgaik.prv.pl ::..
wszysytko czego potrzebujesz