29. maj 2002 - 16:10Der er
10 kommentarer og 2 løsninger
saftevand er godt
Nå, det var nu ikke det jeg ville skrive om. Jeg kunne ikke finde en g0d titel.
Men hvordan kan man udføre en kommando i et bestemt mellemrum fx. skal den Showmessage() og to sekunder efter skifter den farve på formen og to sekunder efter laver den en labels caption om, to sekunder efter det laver den en memo's tekst om osv.
Det lyder somom det er TTimer komponenten du skal bruge (er under System fanebladet). Lav en variabel i din form der holder øje med hvor langt du er kommet i din sekvens af ting der skal gøres, fx. en integer. Sæt Timerens interval op til 2 sekunder og start den.
I dens OnTimer event laver du så bare en CASE der gør de forskellige ting:
case Progress of 0 : ShowMessage(...); 1 : Skift farve; 2 : Skift tekst; osv. osv. end; Inc(Progress); if Progress>5 then Progress:=0; // Hvis den skal starte forfra når den når til enden
Hvis du har behov for forskellige intervaller mellem de enkelte ting kan du bare ændre timerens interval i CASE sætningen.
hvilken fejl, du skal huske at lave en Var der hedder Progress : Integer; og evt lave en Timer1.Enabled := FALSE; i starten og en Timer1.Enabled := TRUE; i bunden, så tingene sker EN Ting ad gangen.
Synes godt om
Slettet bruger
29. maj 2002 - 16:59#8
martinlind... doner nogle halve points til mig - så får du saftevand i mange masser...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.