Delphi中拖动光标Cursor怎么设置？

Question

Delphi中拖出删除光标Cursor怎么设置？
例如Delphi中从工具栏中拖出一个部件，会有带“X”的删除光标，这样的光标Delphi怎么设置？

Answer 1

cursor:=crCross 是 “＋”形增加光标，不是“X”形的删除光标

Answer 2

在MouseMove事件上写上：
SetCursor(IDC_NO);
IDC_APPSTARTING Standard arrow and small hourglass
IDC_ARROW Standard arrow
IDC_CROSS Crosshair
IDC_IBEAM Text I-beam
IDC_ICON Windows NT only: Empty icon
IDC_NO Slashed circle
IDC_SIZE Windows NT only: Four-pointed arrow
IDC_SIZEALL Same as IDC_SIZE
IDC_SIZENESW Double-pointed arrow pointing northeast and southwest
IDC_SIZENS Double-pointed arrow pointing north and south
IDC_SIZENWSE Double-pointed arrow pointing northwest and southeast
IDC_SIZEWE Double-pointed arrow pointing west and east
IDC_UPARROW Vertical arrow
IDC_WAIT Hourglass

Answer 3

在MouseMove事件上写上：
SetCursor(IDC_NO);下面是光标图形：
IDC_APPSTARTING Standard arrow and small hourglass
IDC_ARROW Standard arrow
IDC_CROSS Crosshair
IDC_IBEAM Text I-beam
IDC_ICON Windows NT only: Empty icon
IDC_NO Slashed circle
IDC_SIZE Windows NT only: Four-pointed arrow
IDC_SIZEALL Same as IDC_SIZE
IDC_SIZENESW Double-pointed arrow pointing northeast and southwest
IDC_SIZENS Double-pointed arrow pointing north and south
IDC_SIZENWSE Double-pointed arrow pointing northwest and southeast
IDC_SIZEWE Double-pointed arrow pointing west and east
IDC_UPARROW Vertical arrow
IDC_WAIT Hourglass