Winieta !!!!!!!!!

0

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.

0

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] ]=-

0

podkresla mi ciągle Application.Initialize

0

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] ]=-

0

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

0

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

0

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

Pozdrówka

0

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

0

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

0

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

0

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

0

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

0

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

0

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

0

to jak brzmi poprawna procedura i gdzie ją umiescic?

0

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

0

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

The Delphi has you ...

Zarejestruj się i dołącz do największej społeczności programistów w Polsce.

Otrzymaj wsparcie, dziel się wiedzą i rozwijaj swoje umiejętności z najlepszymi.