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
215
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
Tulipalossa henkilövahinkoja, itsenäisyyspäivä alkoi huonosti, poliisi tiedottaa lisää
Savonlinna https://www.como.fi/uutiset/savonlinna-henkilovahinkoja-tulipalossa-poliisi-tiedottaa-lisaa/1619015Ennen 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 Nu1064098- 1143922
- 553393
Antifasismi - mitä se on?
Se on äärivasemmistolaista anarkistista toimintaa joka käyttää fasisminvastaisuutta keppihevosena oikeuttaakseen toimint432730Somali ei kätellyt Stubbia Linnan juhlissa
Miksei somali osaa noudattaa hyviä käytöstapoja. https://www.iltalehti.fi/viihdeuutiset/a/563a3dea-fa3f-41f3-b64f-406d23952037- 571937
Yliajo Heinolassa
Mikä ihme ihmisiä vaivaa nykyään? Vähän ensin kähistellään nakkikioskilla ja sen jälkeen kostoksi murhataan autolla! Voi461928Kuka on menehtynyt?
https://yle.fi/a/74-20198293 Kuulemani mukaan ryyppyporukka ollut hapualla ja kuolemanenkeli (F.G) eli mies jonka seuras111921Kauhea ikävä iski
Mietin vain, mitä olet juuri nyt tekemässä. Mietin myös, välittyykö se sinulle, kun olet koko ajan mielessäni, tunnetko201541