--> Archiwum Forum
KfIu [ Konsul ]
Szukam "skryptu" w delphi
Jak w teamcie...
Szukam skryptu do Delphi,
że klikam na Button1
a w TGauge1
% lecą po 1 aż do 100(stu)
I nie tak że ja musze kliknąć 100 razy, ani że ja kilkne raz, a to odrazu bedzie z 0 na 100.
tak że będzie automatycznie rosnąć od 1 do 100
z góry dzieki.. :D
robal [ Pretorianin ]
miejscowe osoby nie sa skore do rozmowy na takie tematy i jak znam zycie to pewnie nikt Ci nie pomoze
KRIS_007 [ 1mm[]R+4l ]
Przeiciez wystarczy zwykla petla, w ktorej bedziesz mial wlasciwosc postepu paska + 1. Jak sobie nie poradzisz to ci jutro to wkleje, bo musze poszukac na dysku a wlasnie spadam.
Tańczący na Zgliszczach [ Anioł Czeluści ]
Wstawiasz Button, oraz gauge na formę.
Button nazywasz np. klawisz, gauge nazwyasz pasek.
I teraz dwa proste sposoby :
a) Nie zależy Ci aby rosło powoli. Deklarujesz dwie zmienny np. var a,b : byte; Klikasz dwa razy w button i piszesz tam :
for a:=0 to 100 do begin inc(b); pasek.position:=b ‹pisze z pamieci, moze to nie jest position, nie pamietam ;) ale cos w ten deseń› end;
b) Chcesz aby rosło powoli. Wstawiasz dodatkowo na formę timer. Nazywasz go licznik i ustawiasz na enabled. Deklarujesz dwie zmienne np. a:bute oraz wcisniety:boolean; W wlasciwosci ontime timera dajesz if wcisniety then begin inc(b); pasek.position:=b; ‹pisze z pamieci, moze to nie jest position, nie pamietam ;) ale cos w ten deseń› wcisniety:=false end; natomiast w onclick buttona :
wcisniety:=true;
i to by chyba było tyle.
Tańczący na Zgliszczach [ Anioł Czeluści ]
ps. kod w delphi to nie "skrypt" tylko program :]