Aniindicator Sorunu

[gaus]

Kolay gelsin arkadaşlar aslında basit bir soru fakat çözümünü bulamadım
Aniindicator koyuyorum ve web servisten bağlantı yapıyorum
butona basıldığı an aniindicator çalışsın diyorum web servisten bağlantıyı bitirdiği anda da aniindicator enabledi false olsun diyorum
ama kodu okuyup çok hızlı bir şekilde geliyor görülmüyor bile aniindicator nasıl yapabilirim bunu?

[barisatalay]

Aşağıda verdiğim linkteki componenti inceleyiniz native bir yapıdır kendisi ve programda her hangi bir kasma yapmas.

https://translate.google.com/translate? ... edit-text=

[gaus]

Barış kardeşim bunda da aynısı oluyor yani çok hızlı oluyor nasıl bir yol izlemeliyim

[gaus]

arkadaşlar bu sorunu acilen çözmem gerekli

[barisatalay]

Nasıl bir kod yazdığını bilmiyorum ve olayın mantığı şudur:
Kodun başına
.Show;
kodun sonuna
.Hide;
kodlarını eklersin ve zaten iş bittiğinde otomatik kapanır. Daha fazla ekranda tutmak gibi gereksiz birşeydir haa diyorsun ki işlemler bitmeden kapanıyor ozaman yazdığın kodlarda sorun vardır çözümü kendi hatanda aramalısı.

[gaus]

evet öyle oluyor kodlarımda hata yok ama gecikme var onuda şimdi konu olarak açaçcağım çok sağolasın kardeşim

[gaus]

barış kardeşim geçen süreyi alabilmeyi başardım şimdi bana şu native progresin bu geçen zaman boyunca ekranda kalmasını ve o dolan progresbarrın nasıl dolduğunu anlatır mısın

[barisatalay]

Attığım linkte örnek projeler var orayı incelersen daha net anlayabilirsin.

[barisatalay]

Ek olarak birşeyler denedim senin için:

"BolumList" yazan yerlere loading componentinin hangi obje üzerinde durmasını istiyorsan onun adını yaz.

Kod: Tümünü seç

  TThread.CreateAnonymousThread(procedure
  var
    Rec: TRectangle;
  begin
    Rec := TRectangle.Create(BolumList);
    with Rec do
    begin
      try
        Parent := BolumList;
        Align := TAlignLayout.Contents;
        Sides := [];
        Fill.Color := $FFF39912;

        with TAniIndicator.Create( Rec ) do
        begin
          try
            Parent := Rec;
            Align := TAlignLayout.Center;
            Visible := True;
            Enabled := True;


             //Buraya işlem yapacak kodların..


          finally
            Free;
          end;
        end;
      finally
        Free;
      end;
    end;
  end).Start;

[gaus]

Çok sağolasın barış kardeşim

[gaus]

barış kardeşim bunu uyarladım kedime ama bölümlist mevzusunu yanlış anlamışolabilirm ben formun üzerinde durmasını istedim
ikincisi bunu bir butonun latında mı çalıştıracağım
Kızma çünkü thread hakkında pek bir bilgim yok hatta pek değil hiç yok

[barisatalay]

Örnek boş bi proje aç 2 tane listbox koy ekrana 1. listbox dolu olsun görüntü açısından 2.yi kod ile dolduracas. Bu arada yıllık izindeyim kodları kafadan yazıyorum deneme şansım olmıyor.

Butona:

Kod: Tümünü seç

  TThread.CreateAnonymousThread(procedure
  var
    Rec: TRectangle;
  begin
    Rec := TRectangle.Create(listbox2);
    with Rec do
    begin
      try
        Parent := listbox2;
        Align := TAlignLayout.Contents;
        Sides := [];
        Fill.Color := $FFF39912;

        with TAniIndicator.Create( Rec ) do
        begin
          try
            Parent := Rec;
            Align := TAlignLayout.Center;
            Visible := True;
            Enabled := True;


             for i := 0 to 10 do
             begin
               listbox2.items.add(IntToStr(i));
               sleep(500);
           end; 


          finally
            Free;
          end;
        end;
      finally
        Free;
      end;
    end;
  end).Start;

[gaus]

Çok iyi kardeşim çalışıyor ama kodlar bitince kapanmıyor bu sefer hangi kod bloğunda kapatmalıyım çözemedim ayrıca

[barisatalay]

Test ettim kapanıyor kendisi. Kapanmama gibi bir ihtimali yok yani. Ne olur ne olmaz diye 2 satır daha ekledim.

Kod: Tümünü seç

  TThread.CreateAnonymousThread(procedure
  var
    Rec: TRectangle;
    i: Integer;
  begin
    Rec := TRectangle.Create(listbox1);
    with Rec do
    begin
      try
        Parent := listbox1;
        Align := TAlignLayout.Client;
        Sides := [];
        Fill.Color := $FFF39912;

        with TAniIndicator.Create( Rec ) do
        begin
          try
            Parent := Rec;
            Align := TAlignLayout.Center;
            Visible := True;
            Enabled := True;


             for i := 0 to 5 do
             begin
               listbox1.items.add(IntToStr(i));
               sleep(100);
           end;


          finally
            Enabled := False;
            Visible := False;
            Free;
          end;
        end;
      finally
        Free;
      end;
    end;
  end).Start;

[gaus]

Ayrıca threadi işlemler bitince sonlandırmak gerekli mi yoksa o kendini sonlandırıyor mu