Butona tekrar tekrar basılmasını engelleme

[Serhat]

İyi akşamlar...


Database refresh butonun var timer kullanmadan butonun arka arkaya basılmasını nası genelleyebilirim, yani butona bir kez basıldıktan sonra iki saniye buton enabled false durumuna geçecek ve süre sonunda tureye tekrar dönecek...

[mrmarman]

Butonun altına şöyle bir blok ekleyin.

Kod: Tümünü seç

procedure TForm1.BitBtn1Click(Sender: TObject);
Var
  c : Cardinal;
begin
  TBitBtn(sender).Enabled := False;
  c := gettickcount + 2000; // 2 saniye
  while c > GetTickCount do begin
    Application.ProcessMessages;
    Sleep(1);
  end;
  TBitBtn(sender).Enabled := True;
end;

[badkursat]

Butonun Enable özelliğini False yap. Refresh olayını nerde yapıyosan kodun sonunda tekrar True yapmayı deneyebilirsin.

[mustafasoy]

procedure Tform1.Button1Click(Sender: TObject);
begin
try
//kodların
button1.enabled:=false
finally
button1.enabled:=true;
end;
end;

basit anlamda aradaki kodlar bitene kadar pasif olacak sonunda aktif hale gelecek