为什么执行了这段代码之后，我的鼠标还一定要在我的mouse up之后才会变呢？
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
form1.Cursor:=crcross;
end;
不要多想别的，以上是我给我的application所加的唯一的一句话了！
答案更白痴，就是这么设计的。
FindDragTarget 在响应 CM_SETCURSOR 被调用了，在Drag & Drop 操作的时候不能更改
Cursor, 就是这么设计的。
查一下 Control.pas 你就明白了。
改成这样：
screen.Cursor:=crcross