Ich erzeuge aus der Datenschicht AniIndicators auf gebundenen
GUI-Controls um eine längere Beschäftigung anzuzeigen.
Sichtbar werden diese erst durch Application.ProcessMessages. Und dann wird nix animiert, solange die Anwendung beschäftigt ist.
Zu laufen beginnen sie wenn der Prozess fertig ist und ich die AniIndicators nicht zerstöre.
Gibt es dazu Tipps?
Mann, Mann, Mann, da denkt man, man hat eine schöne tolle neue und leistungsfähige
GUI...
Delphi-Quellcode:
procedure TssCtrl.StartAniIndicator;
begin
if Owner is TControl then
begin
fAniIndicator := TAniIndicator.Create(Owner);
fAniIndicator.Align := TAlignLayout.alCenter;
fAniIndicator.Parent := (Owner as TControl);
fAniIndicator.Enabled := True;
RefreshData;
Application.ProcessMessages;
end;
end;
procedure TssCtrl.EndAniIndicator;
begin
FreeAndNil(fAniIndicator);
RefreshData;
end;