Progressbar symulacja

witam wszystkich chcialbym stworzyc button w którym bedzie kod ze po kliknieciu w niego progressbar startuje i normalnie sie konczy xD czy macie jakis kod moze albo tut ? :D bardzo dziekuje !

Nie mamy! TProgressBar + TTimer + TButton + Podstawy programowania

Mam dejavu, przecież w przeciągu niecalego ostatniego tygodnia byly dwa takie posty. A czy Tobie też zablokowali tak z
tydzien temu google? Współczujemy. Dobra masz i tak się nic nie nauczysz. Tym razem kod operty o Timer. Tylko po co
z takimi banałami piszesz tutaj, a nie do Newbie. A tutoriali jak potrzebujesz, a google nie działa to wyszukaj na Onecie.

//...

procedure TForm1.FormCreate(Sender: TObject);
begin
  ProgressBar1.Max := 10;
  ProgressBar1.Position := 0;
  TImer1.Enabled := False;
  TImer1.Interval := 1000;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if ProgressBar1.Position < ProgressBar1.Max then
    ProgressBar1.Position := ProgressBar1.Position + 1
  else
    Timer1.Enabled := False;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Timer1.Enabled := True;
end;

EDIT: no madmike mnie ubiegł, ale jak będzie kolejny taki post to odsyłamy Panowie do Onetu, bo wygląda na to,
że google definitywnie zamkneli, pewnie władze Egiptu maczaly w tym palce i odłoczyły google - dla całej Polski ;/

no tak wiem ze bedzie trzeba wstawic na pewno progressbar i timer... tylko ja potrzebuje kodu który odpali progressbara ;D

Próbowalem tego typu kodem

ProgressBar1.Position := 6; 

ale mi nic nie wychodzilo nie wiedzialem co mam dawac np miedzi liniami ;d moge zrobic sobie ProgressBar1.Position := 6;

 progress bar 6/7/8/9 i td tylko nie wiem jaki kod wstawiac miedzy linijkami aby progrs bar nie walnol od razu 99 % tylko by dawaj 1% 2% itd pomórzcie mi !!

sorka za post nie nie zdązylem tego przeczytac a juz pisalem i dziekuje ! pozdro !; D

hmm a mozliwe jest aby po ukonczeniu progressbara ukazala sie wiadomosc w label 1 ? :D progressbar konczy i obok zaraz wiadomosc w labelu ? ;d dasz rade napisac taki kod ? :D Prosze Cie ;d sam jednak nic nie zdzialam...

  Label1.Caption := 'Jesteś leniem i tyle Ci powiem :P';

zamiast:

  else
    Timer1.Enabled := False;

piszesz:

  else
    begin
    Timer1.Enabled := False;
    Label1.Caption := 'Koniec';
    end;

I ponownie serdecznie odsyłam do Podstaw programowania w delphi

no tak dziekuje ja po prostu znam nie które komendy, znam te które mi sa potrzebne tylko nie wiem jak przypisywac kody ;d np czasem w kodzie jest na początku Var a czasem begin nie wiem co to ma za znaczenie ;d wlasnie to mój ból lecz komendy typu;

ShowMessage('XXX'); znam xd i jeszcze kilka innych lecz nie wiem np jak zrobic aby sie wyswietlila dana komenda po np 20 kliknieciach w button xD ale spoko dziekuje wam za pomoc ;d no oczywiscie teraz znam juz wiecej komend i wiem jak je przypisac xd ;D pozdrawiam !; D

Przeczytaj najpierw podstawy - to będziesz wiedzial po co jest var. I poznasz inne przydatne "komendy", ponieważ
bez ogarnięcia podstaw nie ma sensu pisać całego programu za Ciebie, a Ty i tak będziesz dalej o wciąż o coś pytał.

no tak jednak to przeczytam na pewno sie przyda lecz podstawy delphi juz czytalem i jedno co mnie tam nauczylo to nic.. tam pisza jak zainstalowac albo do czego sluzy object inspector.. to ja juz znam, a ten kod co mi podales aby wyswietlal wiadomosc po ukonczeniu on nie wyswietla po ukonczeniu tylko od razu jak zaczyna startowac progressbar xD ja chcialem aby sie to pokazalo po ukonczeniu a nie przy starcie ;D da sie jakos to zmienic ?

nie mow ze znasz podstawy bo pojecia o nich nie masz :|
jakbys znal podstawy to bys sie nie pytal o takie pierdoły.

Ustaw sobie w object inspector dla Timer1 własność enable na false i będzie dobrze. I ponownie gorąco polecam Podstawy programowania w delphi tam jest naprawdę wszystko, o ile nie kończy się na oglądaniu obrazków. Programowanie to dziedzina, która wymaga samodzielnego myślenia.

hmm ustawilem i nadal nie dziala klikam W button i od razu po pojawieniu sie pierwszego paska w progressbarze ukazuje sie wiadomosc... nie wiem juz sam ;d jest jeszcze jakies inne wyjscie ?

Sprawdziłem specjalnie u siebie - wszytko gra, czyli coś spaprałeś!!!!!

Kod olesia po zmianach powinien wyglądać tak:

//...

procedure TForm1.FormCreate(Sender: TObject);
begin
  ProgressBar1.Max := 10;
  ProgressBar1.Position := 0;
  TImer1.Enabled := False;
  TImer1.Interval := 1000;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if ProgressBar1.Position < ProgressBar1.Max then
    ProgressBar1.Position := ProgressBar1.Position + 1
  else
    begin
    Timer1.Enabled := False;
    Label1.Caption := 'Jesteś leniem i tyle Ci powiem :P';
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Timer1.Enabled := True;
end;

I na koniec z całego serca swojego życzę miłej lektury Podstaw programowania w delphi