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

215

    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. Kaipaamasi miehen nimi?

      Ja maakunta tai kaupunki?
      Ikävä
      44
      7736
    2. Tulipalossa henkilövahinkoja, itsenäisyyspäivä alkoi huonosti, poliisi tiedottaa lisää

      Savonlinna https://www.como.fi/uutiset/savonlinna-henkilovahinkoja-tulipalossa-poliisi-tiedottaa-lisaa/
      Savonlinna
      70
      4506
    3. Oletko keskustellut kaivatustasi muiden

      Kanssa lähiaikoina? Jos, onko keskustelu ollut positiivista tai negatiivista? Vaikuttaako keskustelut mielipiteeseesi ka
      Ikävä
      59
      3839
    4. Ennen ei ollut persuja ja työttömyyttä, lääkäriinkin pääsi

      Ennen oli kaikilla töitä Kauppiaille kelpasi kun saivat voittoa Yritystukia ei ollut Lääkäriin pääsi kaikki haluklaat Nu
      Maailman menoa
      72
      3715
    5. Millaista läheisyyttä

      Toivoisit ikävästi kohteesi kanssa?
      Ikävä
      98
      3539
    6. 55
      3163
    7. Kyllä on Vasemmistoliitosta Koskelan johdolla tullut todellinen ääripuolue

      se on niin tulipunainen kuin olla voi, ja selvästi haluaa jatkuvasti eripuraa, ja repiä kansaa kahtia. Siinä on jo vuod
      Maailman menoa
      66
      3131
    8. Antifasismi - mitä se on?

      Se on äärivasemmistolaista anarkistista toimintaa joka käyttää fasisminvastaisuutta keppihevosena oikeuttaakseen toimint
      Maailman menoa
      30
      2548
    9. IL- KELA:n pääjohtaja, lääke- ja oikeustieteen tohtori Lasse Lehtonen sekavassa tilassa Brysselissä!

      "Iltalehden tietojen mukaan Lehtosen käytös Brysselin lentokentällä on herättänyt huomiota, ja hänen olemuksensa on tulk
      Maailman menoa
      211
      2163
    10. Heräsin taas ikävään

      Ja aivan valtavaan haluun. Tahdon sinua R. ❤️
      Ikävä
      52
      1658
    Aihe