掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
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の場合です。適当に変更してください。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.