在德尔福2007年,在鼠标移动事件,我试图改变鼠标光标:如何在鼠标左键关闭时更改鼠标光标?
procedure TFr_Board_Display.PaintBox_Proxy_BoardMouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
if left_mouse_button_down then begin
if some_condition then begin
Cursor := crDrag;
end
else begin
Cursor := crNoDrop;
end;
end
else begin
if some_other_condition then begin
Cursor := crHandPoint;
end
else begin
Cursor := crDefault;
end;
end;
end;
例如。但是,当鼠标左键关闭时,我移动鼠标,光标不会更改为crDrag或crNoDrop。代码被执行(例如Cursor:= crDrag;),但游标不会改变。当鼠标左键弹起时,我移动鼠标,光标变化没有问题。
(我最初试图用一些拖放&丢弃事件和属性,但不能得到的一切工作,我想要的方式。)
编辑:澄清所需的行为,并格式化代码。
编辑:谢谢Gamecat,但我希望光标在鼠标左键移动时改变,鼠标移动时光标应该在crDrag和crNoDrop之间来回切换。
增加了更多信息,所以它在鼠标移动时可用。 – 2008-12-18 09:54:53