Sustituir puntero ratón por imagen

[tcp_ip_es]

Viene de la libreria windows. (uses windows)

[bbjb]

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.

[tcp_ip_es]

pon el código y vemos si te podemos ayudar...

[bbjb]

Empezado por tcp_ip_es

pon el código y vemos si te podemos ayudar...

Este es el código que estoy utilizando:

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;

A ver si me podéis ayudar, gracias

[tcp_ip_es]

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:

Código Delphi [-]
Screen.Cursors[crSQLWait] := Screen.Cursors[crHourglass];

y en tu caso sería:

Código Delphi [-]
Screen.Cursors[crSQLWait] := CreateIconIndirect(iconInfo);

si hay alguien el foro que nos pueda ayudar más....

[bbjb]

Empezado por tcp_ip_es

y en tu caso sería:

Screen.Cursors[crSQLWait] := CreateIconIndirect(iconInfo);

En efecto, diste con la solución. Se trataba de eso, de asignar al cursor que aparece mientras se ejecuta la consulta esta imagen.

Muchísimas gracias.

[tcp_ip_es]

je je je me alegra haberte ayudado. Ahora a invitarse a unas copichuelas no?