mouse Icon en un TQuery

jymy788 · #1 17-09-2004

Buenas de nuevo foro.

Como se le puede cambiar el icono de un TQuery cuando se ejecuta?, es decir, que no muestre el relojito mientras realiza la query. ¿Es también aplicable al timer?

Gracias de antemano

jachguate · #2 17-09-2004

Te comento que lo que queres cambiar no es un ícono, en el sentido formal, sino el cursor.

No creo que sea posible con el TQuery, puesto que no conozco una propiedad de este componente o de cualquier otro que permita cambiarlo.

Con respecto del timer... no veo ninguna relación, ya que un timer nunca cambia el cursor.

Hasta luego.

defcon1_es · #3 17-09-2004

El componente como tal no tiene esa propiedad,
pero si la tiene el objeto Screen.
Ejp:
Screen.Cursor := crDefault;

jachguate · #4 17-09-2004

claro, pero el TQuery internamente tendrá algo como:

Código Delphi [-]Procedure TQuery.Open;

Begin
  Screen.cursor := crSQLGlass;
  try
    AbrirElQuery;
  finally
    Screen.cursor := crDefault;
  end;
end;

Por lo que establecerlo fuera de él, de todas formas, no conseguirá el efecto deseado.

Hasta luego.

defcon1_es · #5 17-09-2004

Cita:

Empezado por jachguate

Por lo que establecerlo fuera de él, de todas formas, no conseguirá el efecto deseado.

Hola jachguate,
revisando la vcl no he encontrado que el tQuery controle el cursor del ratón,
sino que lo hace el objeto tSession al que esté asociado en eventos callback, con lo que no se si lo conseguirá...

En este caso, creo que lo mejor es que lo pruebe.

Salu2.