一个很白痴的问题(100分)

在

在心

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-07

• #1

为什么执行了这段代码之后，我的鼠标还一定要在我的mouse up之后才会变呢？
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
form1.Cursor:=crcross;
end;
不要多想别的，以上是我给我的application所加的唯一的一句话了！

 

M

mikedeakins

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-07

• #2

答案更白痴，就是这么设计的。
FindDragTarget 在响应 CM_SETCURSOR 被调用了，在Drag & Drop 操作的时候不能更改
Cursor, 就是这么设计的。

查一下 Control.pas 你就明白了。

 

吴

吴剑明

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-07

• #3

改成这样：
screen.Cursor:=crcross

 

在

在心

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-08

• #4

谢谢大家的帮助，哈哈！