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

147

    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. Joonas Rask viettänyt omasta

      mielestään kivaa iltaa hyvässä hengessä.. https://www.is.fi/sm-liiga/art-2000010582941.html
      Maailman menoa
      2
      1921
    2. Anni Sinnemäki pilasi tämän kaupungin

      Matti, 72, on myynyt jäätelöä Espalla 27 vuotta, mutta nyt hänelle riittää: "Anni Sinnemäki pilasi tämän kaupungin". Rep
      Maailman menoa
      10
      1238
    3. Nythän sitä sopii hallituksen lepäillä lomilla

      kun on Suomi saatu perikadon partaalle. Työpttömyys on huipussaan ja velkaa on vedetty kaksin käsin. Valtion yhtiöistä o
      Maailman menoa
      49
      980
    4. J mies jos vain vielä voit

      Tule luo https://m.youtube.com/watch?v=F5pinBuBRwE&pp=ygUdam9zIHZhaW4gdmllbMOkIHZvaXQgdHVsZSBsdW8%3D Ikuisuutta ei van
      Ikävä
      10
      900
    5. Onko sulla joku

      Suunnitelma jo olemassa
      Ikävä
      58
      877
    6. Mites ois nainen?

      Lähdettäisiinkö yhteiselle lenkille joku ilta? Vaikka sinne metsään. Olisi varmaan juteltavaa puolin ja toisin.
      Ikävä
      59
      831
    7. Koska kumpikaan ei saa sanaa suustaan

      niin miten olisi, jos opeteltaisiin viittomakieli ja hoidettaisiin kommunikointi sillä? Olisi varmasti helpompi murtaa j
      Ikävä
      52
      792
    8. Captain suuttui ja mustaksi muuttui

      Nyt on sitten laadittu oikein tiedote. Viimeksi oli siirtämässä laivojaan kun hävisi oikeudessa Savonlinnan kaupunkia va
      Savonlinna
      38
      758
    9. Kolme parasta piirrettä sinussa

      1 Huumorintaju 2 Turvallisuus 3 Sait minun parhaat puolet esiin Miehelle
      Ikävä
      17
      734
    10. Minua nainen vaivaa vähän yksi asia.

      No se vaan kun pidät minua epäilyttävänä ja jotenkin minulla on sellainen olo että kiinnität tekemisiini huomiota vähän
      Ikävä
      25
      723
    Aihe