Pagina1 van 1

Lazarus Pascal – Hoe laat je jouw applicatie wachten zonder "vast" te staan

Lazarus Pascal – Hoe laat je jouw applicatie wachten zonder "vast" te staan

Welkom bij de Tweaking4All gemeenschapsforums!
Voor je gaat deelnemen, bekijk de Forum Regels!

Specifieke onderwerpen: Start het onderwerp met de naam van het programma of systeem.
Voorbeelden: "MacOS X - Jouw vraag", "MS Word - Jouw Tip of Truc".

Merk op: Omschakelen naar een andere taal zal niet werken als je een post aan het lezen bent.
Posts/Reacties hebben geen tegenhanger in de andere taal.




RSS Feed

Home Forums Software Development Delphi, Lazarus, Free Pascal Lazarus Pascal – Hoe laat je jouw applicatie wachten zonder "vast" te staan

Dit onderwerp bevat 0 reacties, heeft 1 stem, en is het laatst gewijzigd door  hans 1 week, 6 dagen geleden.

1 bericht aan het bekijken (van in totaal 1)
  • Auteur
    Berichten
  • 5525

    hans
    Sleutelbeheerder

    Een stukje code die ik gebruikt heb om even tijdelijk mijn programma te laten slapen.
    In tegenstelling tot “Sleep()”, staat bij deze functie jouw applicatie niet vast (Zzz muis, of spinning ball) en kan de gebruiker gewoon doorwerken.

    procedure MyDelay(DelayTickCount: DWORD);
      var
        StartTickCount : DWORD;
      begin
        StartTickCount := GetTickCount;
        while (GetTickCount < StartTickCount + DelayTickCount) and (not Application.Terminated) do
          Application.ProcessMessages;
      end;   

    Deze functie wacht netjes “DelayTickCount” milliseconden voor het de volgende stap uitvoert en dat zonder dat de gebruiker daar hinder van ondervind.

1 bericht aan het bekijken (van in totaal 1)



Je moet ingelogd zijn om reacties te kunnen plaatsen voor dit onderwerp.