掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
マウスカーソルの形状をキーのUP,Downで変えたい (ID:21224)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
カーソルいじったことは、あまりないんですが。 interface private { Private 宣言 } Cursor1: hCursor; Cursor2: hCursor; MouseShift: TShiftState; implementation procedure TForm1.FormCreate(Sender: TObject); begin Cursor1:= LoadCursor( 0,IDC_ARROW); Cursor2:= LoadCursor( 0,IDC_CROSS); //Cursor:=LoadCursorFromFile(); end; procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if ssLeft in MouseShift then SetCursor( Cursor2) else SetCursor( Cursor1); Caption:=( Char(Key)); end; procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin MouseShift:=Shift; end; procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin MouseShift:=Shift; end; もし、フォームに TEdit や TMemoが乗ってる場合は、キーイベントはそっちに 行ってしまうようなので ・FormのKeyPreviewをTrueにするか ・キーイベントやマウスイベントも同様のハンドラにアサインする（結びつける）か ・同じように別に書くか のいずれかをしないと駄目です。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.