Hola,
Me intriga el sentido de hacer algo así:
Código Delphi
[-]
var
temp: TCursor;
begin
temp := Screen.Cursor;
Screen.Cursor := crHourGlass;
try
finally
Screen.Cursor := temp;
end;
end;
¿Es por aquello de que el usuario puede estar utilizando un cursor que no sea el "crDefault" de Delphi y así lo guardemos y luego lo recuperemos para que el usuario no se quede con un palmo de narices? ¿Es acaso que el cursor representado por "crDefault" es, precisamente, el que el usuario esté usando en ese momento? ¿Porqué unas veces se ve escrito un código similar al de arriba y otras, sin embargo, se ve algo parecido a lo que escribió yusnerqui?
En fin, no es que sea una duda trascendental, de esas que dicen, pero, en todo caso, me llama la atención y quería dejarlo caer por aquí, como el que no quiere la cosa.