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

177

    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. Janne Ahonen E R O A A

      Taas 2 lasta jää vaille ehjää perhettä!
      Kotimaiset julkkisjuorut
      148
      2639
    2. En kai koskaan saa sinua

      Koska et usko että riitäisit minulle. Olet aina pitänyt itseäsi liian risana ja heikkona. Katkot korkeutesi, ja poraat k
      Ikävä
      154
      1669
    3. Terveystalon lääkärit ylilaskuttaneet

      Tämän pörriäiset osaavat, laskuttamisen. Terveystalo myöntää asian. https://www.hs.fi/suomi/art-2000011134269.html "K
      Maailman menoa
      134
      1634
    4. Saran ökytyyli käänsi katseita.

      On nyt kyllä Sara kasvoistaan, kuvan perusteella todellakin pyöristynyt ainakin kuvan perusteella.
      Kotimaiset julkkisjuorut
      150
      1381
    5. Nyt on aika laittaa parit selkoon.

      Onko pareja täällä. Laita kirjaimet kuka tykkää kenestäkin ?
      Ikävä
      66
      1338
    6. The Summit Suomi: Maxie avaa hyytävästä tilanteesta kuvauksissa: "Veri roiskui ja tajusi, että..."

      Oletko seurannut The Summit Suomea? Tykkäätkö vai et tai mitä mieltä ylipäätään olet sarjasta? Moni katsoja on kaikonnut
      Tv-sarjat
      13
      1190
    7. Työttömille lusmuille luvassa lisää keppiä

      Hallitus aikoo kiristää velvoitteiden laiminlyönnistä seuraavia työttömyysturvan karensseja ensi vuodesta alkaen. Hall
      Maailman menoa
      285
      1183
    8. Ootko huomannut miten

      pursuat joka puolelta. Sille joka luulee itsestään liikoja 🫵🙋🏻‍♂️
      Ikävä
      156
      986
    9. Miksi ihmeessä?

      Erika Vikman diskattiin, ei osallistu Euroviisuihin – tilalle Gettomasa ja paluun tekevä Cheek
      Ateismi
      24
      940
    10. Tiedän kaiken sinusta ja kaikesta

      Tiedän miten kärsit. Tiedän millanen oikeesti oot. Tiedän miksi valehtelit, tiedän miksi satutit mua. Tiedän mitä tapaht
      Ikävä
      58
      899
    Aihe