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

208

    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. Eli persujen rääkyminen Marinin hallituksen velanotosta oli sitä itseään

      "Valtiovarainministeriön mukaan Marinin hallitus lisäsi valtion pysyviä menoja 3 miljardia eikä 11 miljardia euroa." El
      Maailman menoa
      74
      6314
    2. MTV3 - Auerin poika todistaa videolla, miten Anneli pahoinpiteli lapsia!

      Kello 10.04 – Ainakin kerran viikossa se löi. Löi muitakin sisaruksia, mutta ei isosiskoa. Nuorinta siskoa en ole nähny
      Henkirikokset
      41
      5388
    3. Orpon hallitus paskoi kaikki hommat

      ja "yllätäen" ilmestyi raportti Marinin hallituksen tuhlailusta, raportti tuli kuin TILAUKSESTA.
      Maailman menoa
      60
      4255
    4. NO NIIN! Nyt on sitten prinsessa Sannan sädekehä lopullisesti rikottu

      narsistia ei kannata enää kuin ne fanaattisimmat kulttilaiset, jotka ovat myös sitä Suomen heikkoälyisintä sakkia. Kun
      Maailman menoa
      73
      4122
    5. Kansa haluaa Marinin hallituksen takaisin ja Orpon pois

      Suomen kansa on nyt ilmoittanut millaisen hallituksen Suomi tarvitsee. "Suomalaisten suosikki seuraavaksi hallituspohja
      Maailman menoa
      66
      3880
    6. Mikä piirre kaivatussa on sinulle se juttu?

      Tunnetko kaivattuasi vai onko hän haavekuva, jota et edes tunne? Joskus tää asia ei ole niin selvää.
      Ikävä
      69
      1167
    7. Anteeksi kaikesta...

      Olin tosi hölmö...
      Ikävä
      57
      1000
    8. Tylsille treffeille

      Hiljaisen ukon kans nuotiolle?
      Tunteet
      304
      999
    9. Onko kaivattusi muuttunut sinä aikana

      Kun olet hänet tuntenut? Jos, mihin suuntaan? Mistä epäilet muuttumisen johtuneen?
      Ikävä
      32
      850
    10. Toivotko, että

      Toivotko, että hän yrittäisi jutella sinulle? Vai toivotko, että itse voisit mennä juttelemaan?
      Ikävä
      62
      811
    Aihe