Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Modificar el cursor (https://www.clubdelphi.com/foros/showthread.php?t=1960)

TelloClos 03-07-2003 16:49:16

Modificar el cursor
 
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 03-07-2003 17:02:51

Prueba con algo similar a este código:

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 03-07-2003 17:32:35

Grande Marcos!!!


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


La franja horaria es GMT +2. Ahora son las 15:12:18.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi