Cursores Animados

[madiazg]

Hola,
he cargado varios punteros estáticos en un fichero de recursos para poder utilizarlos en mi aplicación.


lupa CURSOR lupa.cur
mano CURSOR mano.cur
Hay alguna forma de incluir en un fichero de recursos cursores animados (*.ani)?
Utilizo Turbodelphi.

Saludos...
Miguel Angel

[madiazg]

He buscado por internet y he encontrado ANICURSOR pero no me funciona, por lo menos en TurboDelphi
La información la he obtenido aquí (http://www.delphiforfun.org/Programs/Delphi_Techniques/AnimatedCursors.htm).
Saludos...
Miguel Angel

[cHackAll]

//...

Screen.Cursors[crHourGlass] := LoadCursor(HInstance, PChar(666)); // 666=id
Screen.Cursor := crHourGlass;

//...

[madiazg]

Código Delphi
Screen.Cursors[crHourGlass] := LoadCursor(HInstance, PChar(666)); // 666=id
Screen.Cursor := crHourGlass; //...



Esto me funciona con cursores estáticos, pero no con cursores animados.
Saludos...
Miguel Angel

[cHackAll]

En tal caso el problema está en el recurso, prueba algo así para asegurarte;

procedure TForm1.Button1Click(Sender: TObject);
begin
Screen.Cursors[crHourGlass] := LoadCursorFromFile('C:\WINDOWS\Cursors\Fedora Inverse\Busy.ANI');
Screen.Cursor := crHourGlass;
end;

[madiazg]

En tal caso el problema está en el recurso, prueba algo así para asegurarte;

Código Delphi
procedure TForm1.Button1Click(Sender: TObject);
begin
Screen.Cursors[crHourGlass] := LoadCursorFromFile('C:\WINDOWS\Cursors\Fedora Inverse\Busy.ANI');
Screen.Cursor := crHourGlass;
end;



Así sí se carga el cursor animado. Pero desde el fichero de recursos sólo se cargan los cursores estáticos. Quizás sea la versión de Delphi que utilizo (TurboDelphi).
Gracias y saludos...
Miguel Angel