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í.
Saludos...
Miguel Angel

[[cHackAll]]

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

//...

[madiazg]

Empezado por cHackAll

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;

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

[madiazg]

Empezado por cHackAll

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