6
Di solito, quando ho un compito che richiede un certo tempo, ho utilizzare uno script come questo:Con Firemonkey, come fornire un feedback all'utente? (CrHourglass)
procedure Work;
var
cPrevious: TCursor;
begin
cPrevious := Screen.Cursor;
Screen.Cursor := crHourGlass;
try
// the task
finally
Screen.Cursor := cPrevious;
end;
end;
Con FireMonkey, schermo non ha una proprietà: Cursor.
Qual è il modo migliore per fornire un feedback all'utente?
ho seguito i commenti e la risposta ... con un TPanel che ha meno opacità e un TAniIndicator (ho anche sfocatura gli altri componenti):
Grazie!
dimming forma (sovrapponendo alcuni rettangolo di alpha-blending) e la visualizzazione di una GIF animata - come uno di quelli che può essere generata in http : //www.ajaxload.info/ - forse? – mjn
Anche se non si desidera un'interazione dell'utente durante questo periodo, è possibile renderlo più ovvio disattivando i controlli e visualizzando un pannello con un messaggio come "Attendere mentre ..." e la gif animata come suggerita da mjn, o una barra di avanzamento per indicare che l'app non è congelata, ecc. @mjn: +1 per l'effetto dimming e gif, bel tocco – Morfic
sì, è ragionevole ... FYI, ho usato un TAniIndicator che è un componente che assomiglia qualsiasi ajaxload: o) – Whiler