Ver Mensaje Individual
  #1  
Antiguo 13-01-2004
Damisela Damisela is offline
Miembro
 
Registrado: dic 2003
Posts: 11
Reputación: 0
Damisela Va por buen camino
Lightbulb 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
Responder Con Cita