Sustituir puntero ratón por imagen

[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?

[bbjb]

Eso está hecho, nos vemos a menos cuarto donde siempre, ok?