muttalip65 Posted March 27, 2018 Share Posted March 27, 2018 procedure TFrmEkders_sinav.UniButton1Click(Sender: TObject);begin unibutton1.Enabled:=false; unilabel8.Visible:=true; unilabel8.Caption:=' İŞLEM YAPILIYOR LÜTFEN BEKLEYİNİZ. '; unilabel8.UPDATE; // yukarıdaki işlemler while döngüsü bittikten sonra işlem görüyor. görüntüleniyor.. // bunun mantığı nedir. // masa üstü versiyonunda sorun yok. normal olarak çalışıyor. 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); unilabel8.Visible:=true; unilabel8.Caption:=' İŞLEM YAPILIYOR LÜTFEN BEKLEYİNİZ. '+inttostr(PersonelDSET.RecNo); unilabel8.UPDATE; PersonelDSET.next; end;END; unibutton1 e tıklandığındaunibutton1 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 sonraunibutton1 false oluyor. unilabel8 de görüntülenmiyor. personeldset tablosu ile ilgili while döngüsü bittikten sonra görüntüleme yapılıyor. bu sorunu nasıl çözebiliriz... Quote Link to comment Share on other sites More sharing options...
Administrators Farshad Mohajeri Posted March 27, 2018 Administrators Share Posted March 27, 2018 Merhaba, Button için diğer başlıkta değişik çözümler sunuldu. Label için tek çözüm Senkron modu kullanmaktır. Bu demoları inceleyin isterseniz: SyncClientUpdate - 1 ... SyncClientUpdate - 5 Quote Link to comment Share on other sites More sharing options...
alp.yilmaz Posted March 28, 2018 Share Posted March 28, 2018 unilabel8.UPDATE; satırını UniSession.Synchronize; ile değiştiriniz.. Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.