dinamik olarak button un enable özelliğini false yapmak

[muttalip65]

procedure TFrmEkders_sinav.UniButton1Click(Sender: TObject);
begin
unibutton1.Enabled:=false;

             PersonelDSET.First;
             while (not PersonelDSET.Eof)  do
             begin
               LBL_SICIL.Caption:=Trim(PersonelDSET.fieldbyname('kurum_sicil_no').AsString);
               LBL_ADI.Caption:=Trim(PersonelDSET.fieldbyname('kurum_sicil_no').AsString)+'  '+Trim(PersonelDSET.fieldbyname('ad').AsString)+' '+Trim(PersonelDSET.fieldbyname('soyad').AsString);

               PersonelDSET.next;

              end;

END;
 

 

unibutton1 e tıklandığında
unibutton1 false olmuyor.

 

personeldset tablosunda 5000 kayıt var. Döngü tamamlanana kadar button1 disable olamıyor.

öncelikle while döngüsündeki işlem bittikten sonra
unibutton1 false oluyor.

 

bu sorunu nasıl çözebiliriz...

 

 

[Sherzod]

Hi,

 

Try this approach:

 

1.

procedure TMainForm.UniButton1Click(Sender: TObject);
begin
  UniButton1.Enabled := False;
  Sleep(5000);
  UniButton1.Enabled := True;
end;

2. MainForm -> OnCreate event

procedure TMainForm.UniFormCreate(Sender: TObject);
begin
  UniButton1.JSInterface.JSAddListener('click', 'function(me){me.setDisabled(true)}');
end;

[Farshad Mohajeri]

Or simply enable the screen mask for that button.