Curser i delphi

procedure TForm1.Panel1Enter(Sender: TObject);
begin
form1.Cursor:=crdefault;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Screen.Cursors[crArrow]:=LoadCursorFromFile('c:\programmer\borland\delphi5\mit project\load cursor\Pen_1.cur');
Cursor := crArrow;
end;

Form1.Cursor := clCross; //Eksempel :-)

Andre eksempler (fra hjælpen):
crNone
crArrow
crCross
crIBeam
crSizeNESW
crSizeNS
crSizeNWSE
crSizeWE
crUpArrow
crHourGlass
crDrag
crNoDrop
crHSplit
crVSplit
crMultiDrag
crSQLWait
crNo
crAppStart
crHelp
crHandPoint
crSize
crSizeAll

Det samme gælder stort set alle synlige komponenter :-)

Brug Stone's version hvis du vil bruge en cursor du selv har lavet eller en du har fundet på internettet :-)

Tak for hjælpen men jeg kunne godt tænke mig at cursoren kom ind i exen så at når man fører markøren henover formen skifter den til min cursor. Jeg prøvet om jeg kan finde ud af alt det der med res filer osv, men det er for svært. Det ville være dejligt hvis en (i detaljer) ville skrive præsic hvordan jeg får min cursor til at gøre som beskrevet. Min cursor hedder mincursor.ani

http://www.eksperten.dk/spm/317499 ?

Nu hvor du har fået svar på dit spørgsmål (http://www.eksperten.dk/spm/317499), hvad så med at lukke her?

Hvordan går du det