0

Se alguém puder dar um help, Estou com o seguinte problema : Tenho dois componentes em uma form, um ListView e um AniIndicator, estou carregando os dados do ListView em blocos vindos do banco de dados conforme a demanda. gostaria que o AniIndicator fica-se rodando enquanto carrega os registros, mas o AniIndicator para de rodar quando carrego novos registros no ListView, já tentei fazer com Thread mas não consegui. Se alguém tiver uma luz.

1
  • já possui algo programado? Mostra para nós como esta carregando os dados. 30/01/2018 às 16:41

1 Resposta 1

0

Fiz o código abaixo de teste e deu tudo certo, tente utilizar a procedure Application.ProcessMessages durante o loop do carregamento dos dados no TListView

Segue:

procedure TesteAniIndicator;
var
  I: Integer;
begin
  AniIndicator1.Visible := True;
  AniIndicator1.Enabled := True;
  try
    for I := 0 to 1000 do
    begin
      Sleep(10);
      Application.ProcessMessages;
    end;
  finally
    AniIndicator1.Enabled := False;
    AniIndicator1.Visible := False;
  end;
end;

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .