Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   Problemas con un cursor personalizado (https://www.clubdelphi.com/foros/showthread.php?t=6564)

Damisela 13-01-2004 12:46:11

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.

Angel 13-01-2004 13:35:04

prueba a añadir dentro del uses el fichero windows

Código:


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.


La franja horaria es GMT +2. Ahora son las 21:00:01.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi