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; " ??