Tunda / delay pada delphi

Jika anda menggunakan sleep sebagai tunda an pada delphi maka jika anda menggunakan komponen timer , akan terjadi komponen timer yang terkesan terhenti (karena sleep dipergunakan untuk menidurkan aplikasi sementara waktu , semisal 3 detik)

procedure Delay(Milliseconds: Integer);
var
  Tick: DWord;
  Event: THandle;
begin
  Event := CreateEvent(nil, False, False, nil);
  try
    Tick := GetTickCount + DWord(Milliseconds);
    while (Milliseconds > 0) and
          (MsgWaitForMultipleObjects(1, Event, False, Milliseconds, QS_ALLINPUT) <> WAIT_TIMEOUT) do
    begin
      Application.ProcessMessages;
      if Application.Terminated then Exit;
      Milliseconds := Tick - GetTickcount;
    end;
  finally
    CloseHandle(Event);
  end;
end;



cara penggunaannya

tulis saja

delay (nilai tundaan dalam mili detik);


contoh


procedure TForm1.Button1Click(Sender: TObject);
var  stra: String;
  nmfile, nmurut , loket:String;
    begin

  nmurut:=  ExtractFilePath(Application.ExeName) +  'nomor-urut.wav';
  waveplayer1.LoadFromFile(nmurut);
   waveplayer1.Play;

delay (1000);

stra:=IntToStr(i);
nmfile := ExtractFilePath(Application.ExeName) + inttostr(i) + '.wav';

  i := i+1;
  waveplayer1.LoadFromFile(nmfile);

   waveplayer1.Play;

 delay (1000);
loket:=  ExtractFilePath(Application.ExeName) +  'loket.wav';
  waveplayer1.LoadFromFile(loket);
   waveplayer1.Play;

   delay (1000) ;

 stra:=IntToStr(i);
nmfile := ExtractFilePath(Application.ExeName) + inttostr(i) + '.wav';

  i := i+1;
  waveplayer1.LoadFromFile(nmfile);

   waveplayer1.Play;

end; KUNJUNGI WEBSITE DAGANGAN KAMI KLIK PADA TEKS BERKEDIP INI