Buenos días,
Estoy intentando que al activar un nuevo form en que se accede a un registro en particular o cuando se realiza una consulta a un clientdataset, se muestre un mensaje de "Cargando datos", junto con un objeto tAniIndicator que muestre un cursor rotando de espera.
Lo he probado poniendo el objeto AniIndicator dentro de un tRectangle y también en un tPanel y en los dos casos el objeto AniIndicator aparece estático.
Código:
procedure TForm1.ShowLoading;
begin
Panel2.Position.X := (FormFactor.Width - panel2.Width) / 2;
panel2.Position.Y := (FormFactor.Height - panel2.Height) / 2;
panel2.Visible := True;
panel2.BringToFront;
Application.ProcessMessages;
end;
¿ Cual sería la forma correcta de conseguir ese efecto ?
Por otro lado, tampoco veo la forma de cambiar el estilo y color del objeto tAniIndicator.
Gracias por cualquier ayuda o sugerencia.
Saludos