progressbar

I en progressbar er der to ting, som du skal bruge for at få den til at virke:
step
og

UNDSKYLD FORKERT TAST!!!! jeg prøver lige forfra:

I en progressbar er der to ting, som du skal bruge for at få den til at virke:
STEP  og  MAX.
Ligeså snart dit program starter er din progressbar på "0"... dvs. at stregen eller hvad det nu er ikke har flyttet sig...
Du kan nu skrive f.eks.
progressbar1.step;  Dette gør at din progressbar's værdi bliver lig den som den havde før + den værdi som der er i step (defoult 10)...
Ligeså snart din progressbar's værdi har nået MAX  så er stregen i denne også nået til den anden ende...

Til dit problem ville jeg forestillle mig at det er nemmest at lave en while-løkke, som tæller en given variable op(eks. 10000 gange)
Inde i løkken Laver du så kommandoen
progressbar.step
Hvor din step værdi er lig 1.
Din Max værdi kan du så sætte til at være lig 10000. og derved når løkken er løbet igennem 10000 gange, så er progressbarem nået til den anden ende...
Efter løkken kan du så kalde den nye form på normal vis...

Undskyld latterlige stave og taste fejl... håber det kan læses alligevel...

Her er koden til en løsning. Det ser lidt anderledes ud end det der forklares ovenover ;)

procedure TForm1.Button1Click(Sender: TObject);
Var
I:integer;
begin

for i := 1 to 100 do
begin
  progressbar1.StepIt;
  Sleep(50);
end;

form2.show;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  progressbar1.step := 1;
  progressbar.max := 100;
end;

Mvh
Retep

Det der står i formen's create er properties, der kan ændres/sættes i objekt-inspektoren. Og selvfølgelig burde der stå progressbar1.max;

Mvh
Retep :)

retep:
hvordan får man progressbar til at starte når formen åbnes.
kan e.v.t. smide ekstra point på!

Sad selv og rodede lidt med det før jeg svarede... Det drillede ret meget... Jeg ville nok starte en timer i createn, lade den køre i 5 sekunder, og lade dens event starte progressbaren.

Skriver lige om lidt :)

Skal lige have noget at spise...

Så virker det...

procedure TForm1.FormCreate(Sender: TObject);
begin
  progressbar1.step := 1;
  progressbar1.max := 100;
  timer1.Interval := 3000;
  timer1.Enabled := true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
Var
I:integer;
Begin
timer1.Enabled := false;
for i := 1 to 100 do
begin
  progressbar1.StepIt;
  Sleep(50);
end;
form2.show;
end;

Mvh
Retep :)

Nu ved jeg ikke om du har prøvet at bruge timer før, men det er også en komponent du skal trække ind på formen. Den ligger under fanebladet 'System'.

Aargh, det jeg ville skrive var at du kommer ind til dens timer-event ved at dobbeltklikke på den :)

Du kan også tilføje

form1.hide;

efter

form2.show;

hvis du vil gemme form1.

Så skal du bare bruge

application.terminate;

fra form2 til at lukke programmet...

Mvh
Retep

lige det jeg skulle bruge (tak)
laver lige et spørgsmål(ekstra point til retep)