恳切希望您能够指教在菜单上显示自定义鼠标指针的办法。

由于TPopupMenu没有提供类似“PopupMenu.Cursor”属性用于指定自定义鼠标指针(当然也是不可用Screen.Cursor来指定的)，导致在菜单上无法显示自定义鼠标指针。我尝试通过以下办法进行实现，但是失败了，不知您有什么办法可以实现这个功能的没有，恳切希望得到您的指点！var
   LoadCur:HICON;
   Code: Longint;
   P: TPoint;
begin
   LoadCur:=LoadCursorFromFile(Pchar('c:\ok.cur'));
   GetCursorPos(P);
   Code := SendMessage(form1.PopupMenu1.Handle, HTMENU , 0, LongInt(PointToSmallPoint(P)));
   SendMessage(Handle, WM_SETCURSOR, form1.PopupMenu1.Handle, MakeLong(Code, WM_MOUSEMOVE));
   Windows.SetCursor(LoadCur);
end;