Jump to content

button click event


muttalip65
 Share

Recommended Posts

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

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share

×
×
  • Create New...