|
Con este código
{$R Cursor.res}
const crflecha=-2;
crarrastrar=-12;
crnosoltar=-13;
....
procedure TForm1.FormCreate(Sender: TObject);
begin
screen.cursors[crflecha]:=loadcursor(hInstance,'CRFLECHA');
Screen.Cursors[crarrastrar] := LoadCursor(hInstance, 'CRARRASTRAR');
screen.cursors[crnosoltar]:=Loadcursor(hInstance,'CRNOSOLTAR');
screen.Cursor:=crflecha; //(*)en lugar de self.cursor
end;
El problema ahora es q tengo una aplicación con varios formularios y quiero que todos tengan los mismos cursores. con el cursor crdrag que seria -12 y crnodrop -13 no tengo problema, si que una vez cambiado screen.cursors, me los coge bien.
Pero el efecto no es el eperado, yo quiero q al abrir los siguientes formularios me aparezcan tambien con el cursor cargado en screen.cursor, y eso no lo hace, me toma el cursor normal de siempre.
Tal vez alguien pueda decirme qué hago mal. yo tenia entendido que cambiando el cursor en screen.cursor cambiaba el cursor de la aplicacion, y no me parece que haga eso.
Un saludo, y gracias por su tiempo.
|