Kysymys......

täällä......

Elikkä jos laitan lazarukseen progressbarin komennolla

procedure TForm1.ToggleBox1Change(Sender: TObject);
var t:integer;
begin
for t:=1 to 10 do begin
ProgressBar1.stepit;
sleep(100); //100 ms viive
end;

Niin pitääkö initialization kohtaan laittaa jotain kun se siitä herjaa, kun yritän käynnistää ohjelman? Ajattelin vain kokeilla jos se lataisi jotain olematonta siinä vain, eli ei lataisi mitään mistään vaan rullaisi siinä vain.

6

220

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • se.................

      muuttaa sen pohjan keltasen väriseks eikä toimi tässä rivit

      procedure TForm1.Button1Click(Sender: TObject);
      var t:integer;
      begin
      for t:=1 to 10 do begin
      ProgressBar1.stepit;
      sleep(100); //100 ms viive
      end;
      end;

      procedure TForm1.Button2Click(Sender: TObject);
      begin
      Close;
      end;

      initialization
      {$I unit1.lrs}

      end.

      • ...

        eos


      • mitäs......
        ... kirjoitti:

        eos

        toi tarkotti? Pystytkö laittaa oikeen koodin jos toi on väärin?


    • Kyllä tuo toimii!

      Vastaus on siis ihan alkuperäiseen kysymykseen!

      "Niin pitääkö initialization kohtaan laittaa jotain kun se siitä herjaa"

      Ei tarvitse. Sinulla on ilmeisesti ohjelman rakenne jotenkin virheellinen.

      Eli helpoiten löydät virheen kun teet vallan uuden kokeiluprojektin
      lisäät sinne vain nuo kaksi komponenttia ja teet tuon
      tapahtuman.

      Ainoa minkä voisit korjata on lisätä nukkumisen jälkeen on
      Application.ProcessMessages;

      • toimi............

        vieläkään... Tuli yks nolo juttu mieleen.. Pitäisköhä toho laittaa jostai sellanen progressbar? Siis samal taval ku laittaisit buttonin? Jo pitää mist sen sais?


      • Sain
        toimi............ kirjoitti:

        vieläkään... Tuli yks nolo juttu mieleen.. Pitäisköhä toho laittaa jostai sellanen progressbar? Siis samal taval ku laittaisit buttonin? Jo pitää mist sen sais?

        sen toimimaan!


    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. Lataus pakkaskelissä

      En olisi koskaan ostanut sähköautoa jos olisin tajunnut että ne eivät lataa pakkasissa suurteholatauksella vaan istut tu
      Hybridi- ja sähköautot
      161
      5237
    2. Kun väestö ikääntyy ja veronmaksajat vähenee, mitä sitten vasemmistolaiset?

      Maahanmuutto ei vaan ole ratkaisu väestön ikääntymiseen. Maahanmuutto lykkää ja hidastaa väestön ikääntymistä ja työv
      Maailman menoa
      85
      2763
    3. Miksei Trump ole kiinnostunut Suomen valloittamisesta?

      Täällähän on enemmän turvetta kuin Norjalla öljyä. Eikö Ttump ole turvenuija?
      Maailman menoa
      87
      1752
    4. Kyllä mä suren

      Sitä että mikään ei ole kuten ennen. Ei niitä hetkiä ja katseita. Toisaalta keho lepää eikä enää tarvitse sitä tuskaa ko
      Ikävä
      9
      1216
    5. Laitetaan nyt kirjaimet kohdilleen

      kuka rakastaa ja ketä ?
      Ikävä
      49
      995
    6. Jos vielä joku päivä nähtäis...

      Miten suhtautuisit minuun, mies?
      Ikävä
      66
      912
    7. Olet mies aika ailahteleva luonteeltasi

      Olen nähnyt kuinka olet iloinen, sosiaalinen ja osallistuva. Autat ja kannustat muita. Ja sitten olen nähnyt kuinka istu
      Ikävä
      122
      893
    8. Nyt se on varmaa kuntajakoselvitys

      Ensi viikolla tuöee kuntaministeri ulos ja kertoo asiasta.
      Ähtäri
      21
      893
    9. Mitä tarkoitat

      ”Silti koen sinulta puuttuvan jotain, joka kutsuu minua antamaan sinulle juuri sitä.”
      Ikävä
      23
      888
    10. Yhteen hiileen velanottoveljet V P K

      Tytäryhtiöissä palaa julkista rahaa ja vastuuttomuuden takia -ei pakollisten -kuntalain edellyttämien asioiden takia! N
      Pyhäjärvi
      75
      873
    Aihe