Winieta !!!!!!!!!

mam następujący kod aplikacji i mi ciągl wywala jakiś błąd czy ktoś mi może powiedzieć co tu jest źle?

program Project1;

const
_Stala = 10; * powinno być 100 div liczba_autocreateforms

begin
Aplication.Initialize;
fWinieta:=TfWinieta.Create(Application);

try

fWinieta.Show;

• sekcja tworząca formularz z listy autocreate
  Application.CreateForm(TForm1, Form1);
  fWinieta.ProgressBar.Position:= fWinieta.ProgressBar.Position+ _Stala;
  Application.CreateForm(TForm2, Form2);
  fWinieta.ProgressBar.Position:= fWinieta.ProgressBar.Position+ _Stala;
  Application.CreateForm(TForm3, Form3);
  fWinieta.ProgressBar.Position:= fWinieta.ProgressBar.Position+ _Stala;
  Application.CreateForm(TForm4, Form4);
  fWinieta.ProgressBar.Position:= fWinieta.ProgressBar.Position+ _Stala;

finally

fWinieta.Free;

end;
Application.Run;
end;

uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2},
Unit3 in 'Unit3.pas' {Form3},
Unit4 in 'Unit4.pas' {Form4},

{$R *.res}

begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
Application.CreateForm(TForm3, Form3);
Application.CreateForm(TForm4, Form4);
Application.Run;
end.

nie wiem czy to na pewno to ale mozesz sprobowac:
w kodzie jest napisane
_Stala = 10; * powinno być 100 div liczba_autocreateforms

a u ciebie sa 4 forumy czyli 100 div 4 = 25 a nie 10 :)
czyli powinno byc
_Stala = 25; * powinno być 100 div liczba_autocreateforms

--
-=-=[ Delphi 3, 6 ]=-=-
-=-=-==[ LKS ]==-=-=-
-=[ [email protected] ]=-

podkresla mi ciągle Application.Initialize

a teraz dziala ?
wczesniej nie zauwazylem tego dwukrotnego tworzenia form :)

program Project1;

uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2},
Unit3 in 'Unit3.pas' {Form3},
Unit4 in 'Unit4.pas' {Form4},
Unit5 in 'Unit5.pas' {fWinieta};

{$R *.RES}

const
_Stala = 25;

begin
Application.Initialize;
fWinieta:=TfWinieta.Create(Application);

try

fWinieta.Show;

// sekcja tworząca formularz z listy autocreate
Application.CreateForm(TForm1, Form1);
fWinieta.ProgressBar.Position:= fWinieta.ProgressBar.Position+ _Stala;
Application.CreateForm(TForm2, Form2);
fWinieta.ProgressBar.Position:= fWinieta.ProgressBar.Position+ _Stala;
Application.CreateForm(TForm3, Form3);
fWinieta.ProgressBar.Position:= fWinieta.ProgressBar.Position+ _Stala;
Application.CreateForm(TForm4, Form4);
fWinieta.ProgressBar.Position:= fWinieta.ProgressBar.Position+ _Stala;

finally

fWinieta.Free;

end;
Application.Run;
end.

--
-=-=[ Delphi 3, 6 ]=-=-
-=-=-==[ LKS ]==-=-=-
-=[ [email protected] ]=-

Ktoś wie może jak ustawić delaj tzn żeby opkno splash było wyświtlane przez np. 5 sekund?

aha zauważyłem jeszcze jeden problem
zdjęcia napisy umieszczone na winecie się nie wyświetlają ktoś zna powód?

sleep(5000);---------------------------
Delphi 6

Pozdrówka

Z winietą (splash) to był temat wczoraj. Mam kod komponentu. Chcesz? (Już go tyle razy wysyłałem)--Jest jeszcze jeden błąd ... :)

--------------Blok reklamowy :) -----
kanał: #4programmers.net lub #4programmers
w sieci POLNet
serwer np.: warszawa.ircnet.pl

gzie to sleep mam wpisać bo mi ciągle błedy wyskakują?

mi też si9ę obrazki nie chcą wyświetlić na formularzu
ktoś wie dlaczego trzebA ZAstosować jakiś preload czy co???

Mam ten sam problem jeśli ktoś zna rozwiązanie to proszę o posta.......

Witam
mam na formularzu wineta komponent tlabel który podczas startu się nie pokazuje
progressbar działa bez zarzutu...
jakie są tego przyczyny

A co do sleep to zacytuje porade ze strony www.borland.pl: (http://www.borland.pl/cgi-bin/tip.exe/tip?idt=tip_d_18)
"Jeżeli programista DELPHI w grupie projektowej użyłby instrukcji Sleep za każdym razem gdy jest to potrzebne, zostałby przez kolegów z grupy wydalony. Jeżeli Twój wątek użyje Sleep-a, to spowoduje wprowadznie c a ł e g o !!! systemu w pętle oczekiwania (a co z COM-ami i komunikacją DDE jeżeli w wątku używane jest CoInitialize?).

Jeżeli chcesz bezpiecznie "oczekiwać" w każdym wątku, powinieneś użyć MsgWaitForMultipleObjects lub MsgWaitForMultipleObjectsEx.

Prostsza i bezpieczna może być również funkcja

procedure WaitMS(Milisec:Integer);
var iwaits : Integer;
begin

iwaits:=GetTickCount;
while GetTickCount"

--
pozdrawiam PEDROS {hello}
PROPAGANDA: Uzywajcie irca i badzcie na kanale 4programmers.net
Delphi6

Pedros tez to czytalem :)
tylko ze ta procedurka WaitMS jest ucieta :( ---=-=[ Delphi 3, 6 ]=-=-
-=-=-==[ LKS ]==-=-=-
-=[ [email protected] ]=-

to jak brzmi poprawna procedura i gdzie ją umiescic?

Zamiast Sleep czy tez ucietej WaitMS mozna dac w tym przykladzie SleepEx(5000,False); - to tez jest ze strony borlanda :)--sys:&gt logout....

Mi też wywalało bledy jak robilem cos takiego, ale
tylko wtedy, jak odpalałem program spod Delphi (F9) :| .

The Delphi has you ...