TCustomControl 光标刷新

Question

我有一个可以缩放图像的 TCustomControl。放大时，控件光标设置为 crZoomIn (+)，缩小时，控件光标设置为 crZoomOut (-)。

测试时，控件光标设置正确，但光标不会自行刷新直到鼠标移出控件然后返回控件。

如何刷新或更新光标，而无需将鼠标移出控件然后返回控件？

{编辑]

更改光标的代码是：

procedure TBitmapEditor.ZoomIn;
begin
  if Magnification = 1 then
    Magnification := 2
  else if Magnification < 32 then
    Magnification := Magnification + 2;
  Cursor := crZoomIn;
  Perform( CM_CURSORCHANGED, 0, 0 );
end;

procedure TBitmapEditor.ZoomOut;
begin
  if Magnification = 2 then
    Magnification := 1
  else if Magnification > 1 then
    Magnification := Magnification - 2;
  Cursor := crZoomOut;
  Perform( CM_CURSORCHANGED, 0, 0 );
end;

Perform( CM_CURSORCHANGED, 0, 0 );不会更改光标，但我认为光标设置正确，因为当我按照描述移动鼠标时，光标会正确更改。