FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
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.
__________________
Un Saludo ;) Última edición por Damisela fecha: 13-01-2004 a las 12:47:53. Razón: Problemas con un Cursor Personalizado |
#2
|
|||
|
|||
prueba a añadir dentro del uses el fichero windows
Código:
uses Windows, |
#3
|
|||
|
|||
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.
__________________
Un Saludo ;) |
|
|
|