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.
Kysymys......
täällä......
6
204
Vastaukset
- 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
Ikuiset kaipaajat
Miksette vaan mene sen kaipauksen kohteen luokse ja puhu sille suoraan? Mitä järkeä on kaipailla jotain puolituttua vuo1163725Riikka ottaa miljardi euroa EU:n yhteisvelkaa Suomelle
Niin kääntyi irvipersun takki taas, vaikka vaalilupauksissa oli ettei yhteisvelkaa Suomi enää koskaan ota. No nyt otti m713101- 262704
Persut rahoittavat velkarahalla rikkaiden ökyelämää
Minkä vuoksi persut eivät leikkaa rikkailta, joilla on maksukykyä? Tuskinpa tuo persujen käytös saa Suomen kansalta hyv822451Sanna Marin - Maailman paras talousasiantuntija?
PersKeKoa pukkaa? https://www.hs.fi/politiikka/art-2000011636623.html192399Lindtman ylivoimainen suosikki pääministeriksi
Lindtmania kannattaa pääministeriksi peräti 50 prosenttia useampi kuin toiseksi suosituinta Kaikkosta. https://www.ilta312309Orpon hallitus runnoi Tunnin junan ilman tarvetta
Näinkö valtiontaloutta hoidetaan? Siis asiantuntijoidenkin aikoja sitten kannattamattomaksi laskema Tunnin juna tehdään62207En tiedä ymmärrätkö
Kuinka paljon merkitset mulle. Näet minut minuna etkä silti käännä selkääsi. Tökit jatkuvasti kepillä jäätä ja menit ehk102161Veronmaksajat kustantavat yrittäjien eläkkeitä jo yli 500 miljoonalla
Suomalaista yrittäjää ei kommunistista erota. Aktiivisen "yrittämisen" maksattaa yritystukina yhteiskunnalla, ja vieläpä272036- 901970