8 respuestas en este tema

[Fleon]

Hola a todos, ¿cómo puedo usar otro tipo de cursor que no sea de los que están en Delphi? ¿Se puede?.

Fleon xD

[felipe]

Hola,
Encontre esto

delphi

procedure TForm1.FormCreate(Sender: TObject); 
begin 
// Cargamos el cursor
Screen.Cursors[1] := LoadCursorFromFile('C:\Tu_carpeta\Cursores\Tu_cursor.ani'); 
 
// Aqui lo usamos para el form 
Cursor := 1; 
end;

Saludos

[Fleon]

Muchas gracias felipe, el código me funcionó de perlas, quería preguntarte si es posible hacerlo desde un archivo de recursos, ¿se puede?

Fleon xD

[felipe]

Muchas gracias felipe, el código me funcionó de perlas, quería preguntarte si es posible hacerlo desde un archivo de recursos, ¿se puede?

Fleon xD

Si se puede...
Mira este artículo

Para crear un archivo de recursos, se deben dar los siguientes pasos:

Se crea un fichero en un editor de textos (Bloc de Notas), por ejemplo:

.Imagen Bitmap Dibujo.bmp`

Sonido Wave Musica.wav

Puntero Cursor Lápiz.cur

Icono Icon Bandera.ico

Nota: Separe una columna de la otra utilizando la tecla TAB.
Se grava con extensión RC, por ejemplo Recursos.rc

Se compila el fichero creado, siguiendo los siguientes pasos:

Se ponen en el mismo directorio tanto las imágenes (Dibujo.bmp), sonidos (Musica.wav), cursores (Lápiz.cur) e iconos (Bandera.ico), como el fichero creado (recursos.rc).
Se activa el compilador BRC32 que se encuentra dentro del subdirectorio BIN del directorio de Delphi pasándole como parámetro el fichero creado (Recursos.rc).

BRC32.exe Recursos.rc

con lo que se generará el archivo de recurso Recursos.res

Para usar los recursos se que utilizan una serie de funciones especiales de Delphi.

Ejemplo:

Incluya MMSystem en la cláusula Uses del formulario y agregue la directiva {$R Recursos.res}

Coloque el siguiente código en el evento OnActivate del formulario

delphi

Conts MiCursor = 5;
begin
  PlaySound (PChar ('Sonido'), Hinstance, SND_Resource Or SND_ASYNC);
  Image1.Picture.Bitmap.Handle := LoadBitmap (Hinstance, 'Imagen');
  Screen.Cursors [MiCursor] := LoadCursor (Hinstance, 'Puntero');
  Screen.Cursor := MiCursor;
  Application.Icon.Handle := LoadIcon (Hinstance, 'Icono');
end;

Saludos  ...

Cualquier cosa, podrias preguntarle a nuestro colega Fernando 

[Fleon]

Muchas gracias felipe ya lo pruebo, ¿Quien es Fernando? 

Fleon xD

[enecumene]

Muchas gracias felipe ya lo pruebo, ¿Quien es Fernando? 

Fleon xD

Hola Fleon, yo soy Fernando un gusto conocerlo , el artículo posteado por felipe presenta todo lo que necesitas

Saludos.

[eduarcol]

***
Cualquier cosa, podrias preguntarle a nuestro colega Fernando 

jajaja, ahora si se afectaron ustedes jaja

[felipe]

***
Cualquier cosa, podrias preguntarle a nuestro colega Fernando 

jajaja, ahora si se afectaron ustedes jaja

Bienvenido eduardo, te presentamos a Fleon 

[eduarcol]

Hola FLeon, todo un placer conocer a tan buena persona.