掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
マウスカーソル形状の検知について (ID：33118)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
tttさん、ありがとうございます。 GetCursorInfoで色々調べていくうちに、以下のコードで 実現できました。 （問題ないのか自身はありませんが・・・） procedure TForm1.Timer1Timer(Sender: TObject); var hc: HCURSOR; pci: TCursorInfo; begin pci.cbSize := SizeOf(pci); GetCursorInfo(pci); if pci.hCursor = LoadCursor(0, IDC_ARROW) then Caption := '矢印カーソル' else Caption := 'その他カーソル'; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.