Modificar el cursor

[TelloClos]

Hola Nuevamente!!


tengo tres elementos un formulario, un GroupBox y una Grid , se que para modificar la forma del cursor sobre estos elementos se debe utilizar la propiedad cursor de estos elementos

pero, no existe una forma de definir este cambio de forma del cursor en un solo lado y de forma que se reconozca para todos los elementos presentes en el formulario,
esto para no estar definiendolo en cada uno:

en mi caso el usuario digitara un rut con el cual el sistema le entregara una descripción de este(nombres y apellidos), en una caja de texto, más la lista de las cuotas adeudadas de esta persona, en el grid.
durante este tiempo , y de forma que el usuario sepa que el sistema esta haciendo algo, pretendo modificar la forma del cursor a (crHourGlass), como el cursor no siempre estara ( mientras se procesa la información) en el mismo lugar(groupbox,grid o formulario), debo definir este cambio de forma de cursor en cada uno de estos elementos, lo que igual me resulta un poco redundante.


por cualquier ayuda, de ante mano muchas gracias!!!

[marcoszorrilla]

Prueba con algo similar a este código:

procedure TForm1.Button1Click(Sender: TObject);
Var
OldCursor:TCursor;
begin
OldCursor:=Screen.Cursor;
Screen.cursor:=crHourGlass;
....bla...bla...  //aqui las acciones a realizar
Screen.Cursor:=OldCursor;
end;

Un Saludo.

[TelloClos]

Grande Marcos!!!


la función me funciono justo como queria , Muuuuuuuchas Gracias!!!