PDA

Ver la Versión Completa : Problemas con un cursor personalizado


Damisela
13-01-2004, 12:46:11
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.

Angel
13-01-2004, 13:35:04
prueba a añadir dentro del uses el fichero windows


uses
Windows,


aunque supongo que ya lo tendrás añadido, es ahí donde se encuentra esa función. A mí si que me reconoce la función

Damisela
21-01-2004, 15:28:05
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.