button click event

[muttalip65]

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

 

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

[Farshad Mohajeri]

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

[alp.yilmaz]

       unilabel8.UPDATE;

 

satırını

  UniSession.Synchronize;

 

ile değiştiriniz..