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......
6
161
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
Kuuluuko ehkäisy parisuhteessa molemmille
Mieheni pelkää kovasti sitä, että minun käyttämä ehkäisy (pillerit) pettävät ja että tulisin raskaaksi. Hänellä on jo en621214Suhun ihastuminen oli liikaa mulle ...
Se meni jo sairauden ja sekavuuden puolelle. Oisin tehnyt melkein mitä vain, että saisin sut ja se ei ole tervettä. Vars341020- 631010
Tänään valtuustossa
Striimi rikki. Mennään saliin ja otetaan pussillinen mätiä omenoita mukaan. Popcornit valmiiksi kun Savola alkaa puhumaa261007- 69955
- 46941
- 73892
- 17870
- 56852
Minkälaiset hiukset
kaivatullasi on? Miehellä Kenties ananas, puolikalju jne jne Naisella kenties vaaleat kiharat jne jne27836