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.
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.