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. Trump muka öljyn takia Venezuelaan? Pelkää mustamaalausta

      Kertokaapa mistä tuollainen uutisankka on saanut alkunsta? Näyttäkääpä ne alkuperäiset lähteet, minä en löytänyt mitään
      Maailman menoa
      189
      17944
    2. Kun Arman Alizad puolusti hiihtäjä Vilma Nissilää sanomalla

      "älä välitä sekopäistä Vilma", ja kun siitä kerrottiin täällä, niin sekopäinen mukasuvaitsevainen teki siitä valituksen
      Maailman menoa
      90
      3805
    3. 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
      32
      1914
    4. Martinalta vahva viesti

      "Suuret unelmat venyttävät sinua, pelottavat vähän ja vievät mukavuusalueen ulkopuolelle. Juuri siellä kasvu tapahtuu. J
      Kotimaiset julkkisjuorut
      280
      1530
    5. Miksei Trump ole kiinnostunut Suomen valloittamisesta?

      Täällähän on enemmän turvetta kuin Norjalla öljyä. Eikö Ttump ole turvenuija?
      Maailman menoa
      65
      1511
    6. Akateemikko Martti Koskenniemi vertaa Trumpia Putiniin

      "-Suomalaisena on syytä olla huolissaan siitä, että Yhdysvallat näin vahvistaa 1800-luvun alkupuolella julistamansa etup
      Maailman menoa
      162
      1431
    7. Jos mies olet oikeasti...?

      Kiinnostunut... Pyydä mut kunnolla treffeille ja laita itsesi likoon. En voi antaa sydäntä jos sinä olet epävarma ja eh
      Ikävä
      115
      1324
    8. Esko Eerikäinen paljastaa järkyttävän muiston lapsuudesta - Isä löytyi alastomana slummista

      Esko Eerikäisen tausta on monikulttuurinen, hän muutti vain 10-vuotiaana yksin kotoaan Kolumbiasta isovanhempiensa luo S
      Suomalaiset julkkikset
      14
      1304
    9. Pitäisikö meidän

      Sitten nähdä ilman että siitä tehdään ongelmaa?
      Ikävä
      81
      1111
    10. Nautitko riidan haastamisesta?

      Itse olen hyvin kärsivällinen ja sopuisa noin yleensä, mutta osaan tarvittaessa olla hankala. Niin metsä vastaa kuin sin
      Sinkut
      209
      1053
    Aihe