Cursorについて (ID:5406)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 screen.Cursor := crCrossは有効なんですよね？ChartのCursorが変更できないと。 それならば、 フォームに、 protected procedure CMMouseenter(var Message: TMessage); message CM_MOUSEENTER; procedure CMMouseleave(var Message: TMessage); message CM_MOUSELEAVE; procedure ChangeMouseCursor; と宣言し、その実体を、 procedure TForm1.CMMouseenter(var Message: TMessage); begin inherited; ChangeMouseCursor; end; procedure TForm1.CMMouseleave(var Message: TMessage); begin inherited; Screen.Cursor := crDefault; end; procedure TForm1.ChangeMouseCursor; var p: TPoint; begin GetCursorPos(p); if FindVCLWindow(p) = Panel1 then Screen.Cursor := crCross else Screen.Cursor := crDefault; end; こんな感じにすればできると思います。 フォームがTForm1、crCossにする対象がPanel1の場合です。適当に変更してください。