Aniindicator Sorunu

[gaus]

çok sağolasın ya hayatta çıkmazdım bu işin içinden açılmıyordu sqlite ile ilgili bir durum olduğundan neler denedim neler çok sağolasın çok makbule geçti kardeşim

[gaus]

Kod: Tümünü seç

begin

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

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




          finally
             enabled:=false;
             Visible:=false;
             Label1.Visible:=false;
             Timer1.Enabled:=false;
            Free;

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

end;

böyle birşey denedim ve labella timer işi yaş acaba neden olabilir

[barisatalay]

kayıt gönder procedure içersini bilmiyorm ve oradaki işlem hemen bittiğinden göremiyor olabilirsin.

[gaus]

Yok uzun bir işlem çünkü aniindicatorlar açılıyor kapanıyor

[jakarta2]

Normal butonclick'inde aniindicator.enable = True komutu iş görüyor ancak

procedure TForm1.Memo1DblClick(Sender: TObject);
var
Rec: TRectangle;
sl, liste:Tstringlist;
i, d, sayi,v,n,m, sayac :integer;
kelime, metin, aranacak,yer : string;
BirTurDaha : Boolean;
begin
tabcontrol1.Next;
aniindicator2.Visible := True;
aniindicator2.Enabled := True;
sl:=Tstringlist.Create;
try
sl.Delimiter := ' ';
sl.DelimitedText := Trim(memo1.Text);
// showmessage(format('Kelime Sayısı : %d' , [sl.Count]));
i := sl.Count - 1;
Listbox1.items := kelimelereAyir(memo1.Text);
for d := 0 to Listbox1.items.Count - 1 do
begin
if Listbox1.items[d] <> '' then
begin
kelime := Listbox1.items[d];
metin := memo1.Text;
for v := 0 to i do
begin
if sl.Strings[v] = Listbox1.items[d] then sayi := sayi + 1;
end;
end;
Listbox1.items[d]:= Format('%.3d', [sayi]) + ' ' + Listbox1.items[d];
sayi := 0;
end;

liste:=tstringlist.create;

for m:=0 to listbox1.items.count-1 do
begin
if liste.indexof(listbox1.items[m]) < 0 then liste.add(listbox1.items[m]);
end;
liste.Sort;
listbox1.items.text:=liste.text;
liste.Free;
// sadelestir(listbox1);
// listbox1.Sorted := True;

BirTurDaha := True;
With ListBox1 do
While BirTurDaha do begin
BirTurDaha := False;
For sayac := 0 to items.Count - 2 do begin
If items[sayac] < items[sayac + 1] then begin
yer := Items[sayac];
Items[sayac] := Items[sayac + 1];
Items[sayac + 1] := yer;
BirTurDaha := True;
end; // if
end; // For
end; // While
finally
sl.Free;
end;
aniindicator2.Enabled := False;
aniindicator2.Visible := False;
end;


böyle yazınca çalışmıyor nedendir?

[jakarta2]

selam;

Aşağıdaki kodlarla bazen stack overflow, bazen access violation hatalarını alıyorum işin içinden çıkamadım yardım eder misiniz?

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;


ayirvesay;
sadelestir;
sadecebuyukler;
sirala;

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