Tema viejo , pero hago un aporte. Después de buscar y leer por varios días post que dicen "lea este post..." lo pude hacer funcionar el AniIndicator para que se "mueva" con un proceso.
Me funciona en windows y también en Android 6.0 con D X7
Form Principal.
Código Delphi
[-]
procedure TFmMAin.SB_DbReadClick(Sender: Tobject);
begin
PAnelAviso.Visible := true;
AniIndicator1.Enabled := true;
Hilo := THilo.Create(True);
Hilo.Start;
while not Hilo.Finished do
begin
ProgressBar1.value := ProgressBar1.Value +1;
sleep(20);
if ProgressBar1.Value = 100 then
ProgressBar1.Value := 0;
Application.ProcessMessages;
end;
ProgressBar1.Value := 0;
AniIndicator1.Enabled := false;
PAnelAviso.Visible := false;
.....
Nota: El AniIndicator esta en un Panel. Le puse también un Progressbar para ver si funcionaban juntos. y funcionan!. Sin en el Application.ProcessMessages no funcionan.
Unidad para el proceso
Código Delphi
[-]
unit procesos;
interface
uses
Classes, SysUtils;
type
THilo = class(TThread)
protected
procedure Execute; override;
end;
implementation
uses main;
procedure THilo.Execute;
begin
FmMain.RestRequest1.Execute;
end;
end.
No se si es eficiente, pero no me importa. Lo importante que el usuario crea que lo es (ja) . Y vea que su dispositivo esta "pensando" ... después le podemos echar la culpa a las comunicaciones, etc....