Ik kom heel vaak vragen op dit forum tegen over een vertraging van een x-aantal seconden in je programma. Altijd wordt de oplossing aangedragen doormiddel van timers enzo.
Een veel makkelijkere manier is de volgende:
Simpelweg in je code: Delay(5000) en je programma zal 5 sec wachten met uitvoeren van code!!!Code:procedure TFormStart.Delay(ms : longint); var TheTime : LongInt; begin TheTime := GetTickCount + ms; while GetTickCount < TheTime do Application.ProcessMessages; end;
Ook zeer efficient voor het volgende:
Als je een vrij zware code hebt, en je wilt een verandering op je form hebben, wil deze niet altijd doorgevoerd worden voordat de zware code is afgehandeld. Je form 'hangt' als het ware even zolang je programma die zware code afhandelt.
Zet na je formaanpassingen (zoals een label zichtbaar maken ofzo) een Delay(1) neer, en delphi past eerst je form aan, en gaat dan pas naar de zware code.
En een vertraging van 1 milliseconde is nu niet echt schadelijk voor je programma!
Succes ermee en ik hoop dat jullie er iets aan hebben!!
Bookmarks