Progressbar "manuell" steuern

[0ip0ip]

Hi

sorry wenn diese Frage hier zum hundertsten mal kommt aber ich habe bisher keine Antwort gefunden...

ich versuche ein Spaßprogramm zu programmieren beidem ich eine Progressbar habe welche durch das klicken eines Buttons um einen vorgegebenen Prozentsatz vorranschreitet..
zum Beispiel das beim klick auf Button1 15% auf die Progressbar adiert wird..

wie genau muss ich die Button programmieren damit die Progressbar bei jedem klick wächst??
oder ist das überhaupt möglich??

sorry für diese Anfängerfrage aber es ist eines meiner ersten Programme und ich bin neu hier im Forum.

mfg 0ip0ip


P.S. ich benutze Lazarus

[s.h.a.r.k]

Es gibt sicherlich die Eigenschaft Position. Teilweise, ab neueren Versionen, gibt Step() als Methode.

[mleyen]

Hallo und herzlich willkommen im Forum, :dp:

um die Progressbar zu verstellen brauchst du die Eigenschaft Position.

Hier auf dein Beispiel zugeschnitten:

Delphi-Quellcode:

procedure TForm1.btn3Click(Sender: TObject);
begin
  pgbar1.Position := pgbar1.Position + pgbar1.Max * 15 div 100;
end;

[0ip0ip]

Zitat:

Zitat von mleyen (Beitrag 1034966)

Hallo und herzlich willkommen im Forum, :dp:

um die Progressbar zu verstellen brauchst du die Eigenschaft Position.

Hier auf dein Beispiel zugeschnitten:

Delphi-Quellcode:

procedure TForm1.btn3Click(Sender: TObject);
begin
  pgbar1.Position := pgbar1.Position + pgbar1.Max * 15 div 100;
end;

danke (:
funktioniert super...

und ich meine sogar die Funktionsweise dahnter verstanden zu haben ^^


und danke für die schnelle hilfe..

[0ip0ip]

Hi

ich nochmal...

ist es auch möglich wenn die Progressbar "voll" ist automatisch ein Bild anzeigen zu lassen??

also ImageX.visible:= true;

aber wie sage ich dem Programm das es dies genau dann macht wenn die Progressbar den Maximalwert überschreitet??

mfg udn danke im vorraus

[Daniela.S]

Über schreiten gibt's nicht.
Aber du kannst vergleichen ob das Maximum erreicht ist.

Delphi-Quellcode:

  ImageX.visible := pgbar1.Position = pgbar1.Max;

[0ip0ip]

ja meinte ich auch das maximum ereichen...
danke werde es probieren (:

[0ip0ip]

nee hat leider nicht geklapt ):

also das bild soll ersteinmal versteckt sein...
und dann wenn die progressbar ihr maximum erreicht hat soll es sichtbar werden...

mfg

[xZise]

Du musst auch zu anfang im Object Inspector das Image ausblenden. Dann sollte es gehen.

MfG
Fabian

[0ip0ip]

danke funktioniert jetzt ^^

aber irgendwie nicht wenn ein bild verschwinden soll..
also ist im objektinspektor als Visible True drinne (soll von anfang an gezeigt werden)
aber dann nichtmehr sichtbar werden wenn die Progressbar ihr Mximum ereicht hat..

ist das dann nicht einfach " ImageX.invisible := pgbar1.Position = pgbar1.Max; " ??

[Namenloser]

Wenn du das "in" noch rausstreichst, sollte es klappen, ja.

[0ip0ip]

leider nein :S

jetzt wir es nicht sichtbar während die progressbar sich "füllt" aber sobald sie voll ist wird es wieder sichtbar...
also genau andersrum wäre gut... :/

[idefix2]

Delphi-Quellcode:

ImageX.visible := pgbar1.Position <> pgbar1.Max;

[0ip0ip]

cool danke (:

es hat geklapt :'D

[lbccaleb]

Versuchs mal damit:

ImageX.visible := not pgbar1.Position = pgbar1.Max;

[xZise]

Moin,
ein Bild hat keine Eigenschaft [delpi]invisible[/delphi], weil das ja das gegenteil von

Delphi-Quellcode:

visible

ist. Also um etwas auszublenden sagst du entweder es ist unsichtbar (also sozusagen

Delphi-Quellcode:

invisible := true

) oder es ist nicht sichtbar (also

Delphi-Quellcode:

visible := false

).

Jetzt hast du diese Zeile:

Delphi-Quellcode:

ImageX.visible := a = b;

Eigentlich sind das zwei Befehle und es lässt sich so umschreiben:

Delphi-Quellcode:

if a = b then
  ImageX.visible := true
else
  ImageX.visible := false

Also ist

Delphi-Quellcode:

a = b

ein Boolean (wahr oder falsch) und auf diesen Wert wird dann visible gesetzt. Das heißt, wenn er das Maximum erreicht, soll er unsichtbar werden, also muss

Delphi-Quellcode:

ImageX.visible

auf false gesetzt werden.

Also muss

Delphi-Quellcode:

a = b

false zurück liefern. Und da kannst du entweder die Bedingung negieren

Delphi-Quellcode:

not (a = b)

oder du negierst den Vergleich

Delphi-Quellcode:

a <> b

. Was du machst ist letztendlich egal, aber ich wollte nur erklären, warum die diese Lösungen vorgeschlagen wurden, und wie das so funktioniert ;)

MfG
Fabian

[idefix2]

Delphi-Quellcode:

if a = b then
  ImageX.visible := true
else
  ImageX.visible := false

Steinigt ihn! :wink:

Noch besser wäre natürlich

Delphi-Quellcode:

if (a = b) = true then
  ImageX.visible := true
else
  ImageX.visible := false

[lbccaleb]

Zitat:

Zitat von idefix2 (Beitrag 1035088)

Delphi-Quellcode:

if a = b then
  ImageX.visible := true
else
  ImageX.visible := false

Steinigt ihn! :wink:

Noch besser wäre natürlich

Delphi-Quellcode:

if (a = b) = true then
  ImageX.visible := true
else
  ImageX.visible := false

Was daran besser?? Denke wir vergleichen nicht auf True ;)

[Valle]

Zitat:

Zitat von lbccaleb (Beitrag 1035094)

Was daran besser?? Denke wir vergleichen nicht auf True ;)

Genau. Und da hinter steckt die Ironie. :P

Hier mal ohne schwer erkennbare Stilmittel:

Delphi-Quellcode:

  ImageX.visible := (a = b);

Liebe Grüße,
Valle

[xZise]

Oh my gooooood -.-

Ich wollte doch nur zeigen, was der Code macht. Ihn keinesfalls verbessern.

MG
Fabian