掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
十字型のマウスポインターを表示するには？ (ID：35447)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
現在仕掛かってる仕事で十字型のマウスポインターを表示する仕組みがどうしても必要になりました。出来なくて困っています。 そこで質問です。 質問１...Cursor(マウスポインター)で独自のユーティリティーを掲載してるサイトをご存知でしょうか？あったらお教え下さい。 質問２...現状で独自のマウスポインターが作れないのでフォーム内に以下のプログラムを作成しています。OnMouseMoveイベントでShapeコンポーネントを２個移動させていますが線が反応するのにムラが生じてしまいます。（Shapeコンポーネント１個ですと上手く反応します）。タイムリーに反応させる方法をお教え下さい。宜しくお願いします。 「作成手順」...フォーム内にShapeコンポーネントを２個、Labelコンポーネントを１個置きます。（Shape1が縦線、Shape2が横線です） procedure TForm1.FormCreate(Sender: TObject); begin Shape1.Width :=1; Shape1.Top :=1; Shape1.Height :=Height; Shape2.Height :=1; Shape2.Left :=0; Shape2.Width :=Width; end; procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin Label1.Caption :=inttostr(x) +' ' +inttostr(y); Shape1.Left :=x; Shape2.Top :=y; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.