TForm1.Timer1Timer(Sender: TObject)
begin
   Timer1.Tag := Timer1.Tag + 1;
  
   if Timer1.Tag = 5 then
   begin
      Timer1.Enabled := false;
      ProsesPerintah;
   end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Tag:=Timer1.Tag 1;
if Timer1.Tag:= 5 then
begin
Timer1.Enabled:=False;
BlockInput(True);
Sleep(5000);
BlockInput(False);
end;

@yufan: kasih pencerahan source codenya sedikit dunk mas ,,,,,???

procedure TLoginForm.Timer1Timer(Sender: TObject);
begin
 ProgressBar.StepBy(-1); //progressbar nilainya berkurang 1
  if ProgressBar.Position = 0 then // ketika progressbar potion = 0 maka aplikasi Login akan diakhiri sesuai set timernya
   begin
     Application.Terminate;
   end;
end;
procedure TLoginForm.FormCreate(Sender: TObject);
begin
  Timer1.Interval := 100; // set kecepatan timer 
  ProgressBar.Max := 100; //  set posisi progressbar (perkaliannya antara interval timer dgn progressbar hasilnya adalah second)
  ProgressBar.Position := ProgressBar.Max;
  Timer1.Enabled := true;
  progressBar.Visible := true;
end;

@yufan: kok nggak bisa jalan ya mas ,,, ni source code saya

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Tag:=Timer1.Tag 1;
if Timer1.Tag:= 5 then
begin
Timer1.Enabled:=False;
BlockInput(True);
Sleep(5000);
BlockInput(False);
end;

procedure TForm1.Timer1Timer(Sender: TObject); begin Timer1.Tag:=Timer1.Tag+1; //ada simbol + nya jd akan menjalankan counting tag timernya menjadi 5 if Timer1.Tag:= 5 then //jika tag timer = 5 begin Timer1.Enabled:=False; Timer1.Tag:=0; //kembalikan tag timer menjadi 0 kalau di perlukan lagi timer nya BlockInput(True); Sleep(5000); //ini akan stact selama 5 detik tp aplikasi tidak bisa ngapa-ngapain sehingga keliahatn hang selama 5 detik BlockInput(False); end;

@aandrie77: [quote:341c80333a="yufan"]kok nggak bisa jalan ya mas ,,, ni source code saya

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Tag:=Timer1.Tag 1;
if Timer1.Tag:= 5 then
begin
Timer1.Enabled:=False;
BlockInput(True);
Sleep(5000);
BlockInput(False);
end;

[/quote:341c80333a] codenya mungkin ada yang kurang... mungkin seharusnya ==>

procedure TForm1.Timer1Timer(Sender: TObject); begin Timer1.Tag:=Timer1.Tag+1; //ada simbol + nya jd akan menjalankan counting tag timernya menjadi 5 if Timer1.Tag:= 5 then //jika tag timer = 5 begin Timer1.Enabled:=False; Timer1.Tag:=0; //kembalikan tag timer menjadi 0 kalau di perlukan lagi timer nya BlockInput(True); Sleep(5000); //ini akan stact selama 5 detik tp aplikasi tidak bisa ngapa-ngapain sehingga keliahatn hang selama 5 detik BlockInput(False); end;

procedure BlockInput(ABlockInput : Boolean); stdcall; external 'USER32.DLL';

type expresion must be boolean...

@mas_kofa:

TForm1.Timer1Timer(Sender: TObject)
begin
   Timer1.Tag := Timer1.Tag + 1;
  
   if Timer1.Tag = 5 then
   begin
      Timer1.Enabled := false;
      ProsesPerintah;
   end;
end;