FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
||||
|
||||
Cita:
Muchas gracias a ambos |
#2
|
||||
|
||||
Todo correcto, muchas gracias de nuevo
Última edición por bbjb fecha: 05-09-2008 a las 11:18:50. |
#3
|
||||
|
||||
Viene de la libreria windows. (uses windows)
|
#4
|
||||
|
||||
Probé este ejemplo en un formulario simple y me funciono perfectamente. Cuando quise integrarlo en el programa para que cambiase el cursor justo antes de ejecutar la consulta me encuentro con que no lo cambia hasta que la sql no ha finalizado, con lo que no consigo el objetivo perseguido que no era otro que mostrar la imagen mientras se realiza la consulta.
¿Alguno de vosotros sabría a que se debe? Muchas gracias. |
#5
|
||||
|
||||
pon el código y vemos si te podemos ayudar...
|
#6
|
||||
|
||||
Cita:
Código:
var Bitmap, BitmapMask: TBitmap; x, y: Integer; begin // Crear Bitmap := TBitmap.Create; BitmapMask := TBitmap.Create; // proteccion try // Cargar la imagen Bitmap.Assign(Image1.Picture.Bitmap); // Asignar la imagen BitmapMask.Assign(Bitmap); // Si suponemos como color transparente el clFuchsia, lo sustituimos por // otro para la transparencia for y:= 0 to 31 do begin for x:= 0 to 31 do begin if Bitmap.Canvas.Pixels[x, y] = clFuchsia then begin Bitmap.Canvas.Pixels[x, y]:= clBlack; end; end; end; // Crear el icono del cursor with iconInfo do begin fIcon:= True; xHotspot := (Bitmap.Width div 4); yHotspot := (Bitmap.Height div 3); hbmMask:= BitmapMask.MaskHandle; hbmColor:= Bitmap.Handle; end; // Asignar el icono Screen.Cursors[1] := CreateIconIndirect(iconInfo); Self.Cursor := 1; //En este punto abro la consulta y hasta que no acaba // de ejecutarse no aparece el cursor cambiado Query1.Open; // Liberar finally BitmapMask.Free; Bitmap.Free; end; |
#7
|
||||
|
||||
pero te sale algún icono en el trascurso de la consulta??? si es asi y mirando este post, veo que según Roman lo que hace es cambiar el cursor tipo que lanza una consulta:
y en tu caso sería:
si hay alguien el foro que nos pueda ayudar más.... |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Cambiar puntero raton | Esti | Varios | 2 | 23-11-2005 11:42:22 |
Puntero del raton | Canastera | Gráficos | 2 | 24-06-2005 18:23:07 |
Enfocar un botón al pasar el puntero del ratón | David | OOP | 7 | 16-03-2005 00:25:36 |
Esconder puntero del raton | Diana | OOP | 5 | 07-01-2005 08:54:54 |
Cambiar el puntero al pulsar y soltar el ratón?? | superfer17 | Varios | 2 | 23-08-2004 13:45:35 |
|