![]() |
Problemas con un cursor personalizado
Buenas,
Me he creado un cursor nuevo, y quiero usarlo en un formulario asi que he seguido la ayuda del Delphi y he puesto: procedure TCC.FormCreate(Sender: TObject); const crMiCursor = 5; begin Screen.Cursors[crMiCursor] := LoadCursor(HInstance, 'Cursor_CC_Negro'); Cursor := crMiCursor; end; Pero me da error, me dice que no conoce la funcion LoadCursor, he buscado en el foro y lo unico que he encontrado referente a esto ha sido otra forma de hacerlo: procedure TCC.FormShow(Sender: TObject); begin Screen.Cursors[1] := LoadCursorFromFile('Cursor_CC_Negro.cur'); Cursor := 1 ; end; Tambien la he probado pero tambien me dice que no conoce la funcion LoadCursorFromFile. Alguien sabe por que me pasa esto o otra forma para usar un cursor propio? Esta funcion si consigo que me sirva sera compatible en los distintos windows? Gracias de antemano. |
prueba a añadir dentro del uses el fichero windows
Código:
|
Gracias ya lo he conseguido. Es que tenia q meter los cursores en la misma carpeta donde esta el proyecto por que no le daba la direccion completa.
|
La franja horaria es GMT +2. Ahora son las 21:19:38. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi