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...