喫茶XRAYトップページ

[スレッド全体]
[1606] Re:カーソルの変更返信　削除
2008/4/13 (日) 17:36:56 Null
▼ 鈴木商店さん

横からご免なさい。

私には、フック関数は難し過ぎて解りませんが、こんな方法も有るようです。

もし宜しければ、添付ファイルを解凍後、試してみて下さい。

■添付ファイル 30.lzh
[1607] Re2:カーソルの変更返信　削除
2008/4/13 (日) 23:03:38 Mr.XRAY
▼ Nullさん，フォローどうもです．

多分そういうことなんでしょうね．ちょっと考えすぎたようです(ハハハッ!)．
カーソルの変更の仕方がわからなくて，調べていたら，もしかしてフックと
いうものが必要だと思ったのかも知れませんね．

ところで，添付内のカーソル，大きくて分かり易くていいですね．

[1608] Re2:カーソルの変更返信　削除
2008/4/14 (月) 07:39:01 鈴木商店
Nullさん Mr.XRAYさん　こんにちは。
複数レスまとめてレスする事を　お許し下さい。

> 横からご免なさい。
> 私には、フック関数は難し過ぎて解りませんが、こんな方法も有るようです。
> もし宜しければ、添付ファイルを解凍後、試してみて下さい。

さっそくに　試してみました　中央ボタンをクリックすると
カーソルの形が変わりました。確認させて頂きましたよ・すごいです

カーソルの変更方法は解りました。ありがとうございます。
で　私が考えているのは下記のまとめてみました。

0)複数のソフト起動画面内でも　カーソルの表示を変更したい。
2)また　左ボタンをクリックした場合のカーソルの表示切替
3)また　右ボタンをクリックした場合のカーソルの表示切替
4)また　左右ボタンをクリックした場合のカーソルの表示切替
5)また　ホイールボタンを押した場合のカーソルの表示切替

と言う様な場合　どうしても複数のソフト窓を認識させる為にはフックが必要になるのかなと思いまして
なにか良い方法はないものかと・・・・ここにたどり着きました。
画像を表示すると言う260と261のサンプルを利用して
カーソルの表示のみ切り替えることは可能でしょうか。

また　他に良い方法はないものでしょうか。
つづいて宜しくお願いいたします。


[1609] Re3:カーソルの変更返信　削除
2008/4/14 (月) 09:47:49 Null
▼ 鈴木商店さん

> 2)また　左ボタンをクリックした場合のカーソルの表示切替
> 3)また　右ボタンをクリックした場合のカーソルの表示切替
> 5)また　ホイールボタンを押した場合のカーソルの表示切替


procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   if Button   =  mbRight  then
      Label1.Caption := '右';

   if Button   =  mbLeft  then
      Label1.Caption := '左';

   if Button   =  mbMiddle  then
      Label1.Caption := '中';
end;

Delphi7 の「OnMouseDown」のヘルプを参考にして書きました。
私の能力では此処までが限界です。

Delphi(Free　P6)は使った経験が無いので解りませんが、多分ヘルプ
も付属していると思います。  是非参考にして下さい。


[1610] Re3:カーソルの変更返信　削除
2008/4/14 (月) 22:30:00 Mr.XRAY
▼ 鈴木商店さん

[1608]読みましたが，いまいち，仕様が理解できません．
特定のアプリでマウスカーソルを変更したいのでしょうか．

可能であるかの可否はともかく．
余計なお世話でしょうが，そんなことはしない方がいいような気がし
ます(^_^;)
[1612] Re4:カーソルの変更返信　削除
2008/4/15 (火) 10:07:29 鈴木商店
▼ Mr.XRAYさん こんにちは。

> [1608]読みましたが，いまいち，仕様が理解できません．
> 特定のアプリでマウスカーソルを変更したいのでしょうか．
 
> 可能であるかの可否はともかく．
> 余計なお世話でしょうが，そんなことはしない方がいいような気がし
> ます(^_^;)

は〜い　画面動画キャプチャーでソフトの操作説明動画を作成したいので
マウスの左ボタン　右ボタン　同時ボタン　ホイールボタンのクリック時に
カーソルの形を変更出来たらいいなと思いまして
画面表示出来ると視覚的に解り易いので　是非挑戦して
見たくて　グローバルフックとやらの方が良い見たいなので
SetWindowsHookExを利用してDLL作成してHookした方が
良さそうな気配ですね。

参考動画を見つけましたのでどうぞ(こんな感じに出来たら)

http://video.nifty.com/cs/catalog/video_metadata/catalog_080330073823_1.htm
[1613] Re5:カーソルの変更返信　削除
2008/4/15 (火) 16:48:13 Mr.XRAY
▼ 鈴木商店さん

> http://video.nifty.com/cs/catalog/video_metadata/catalog_080330073823_1.htm

えっ〜とですね．
ダウンロードして確認しました．
新しいマウスカーソルを作成していますね．
マウスクリックでマウスカーソルを変更しているのでしょう．
[261]にシステムのマウスカーソルを非表示にするコードの説明もしておきました
から，[261]のリスト1のMstStrの値を判断して，システムのマウスカーソルを
自分で作成したマウスカーソルに変更すればいいですね．

でも[261]のコードで画像だけを変更する方法の方が私はいいと思いますねけどね．
システムのマウスカーソルを変更する必要がないんですから．
マウス操作によって画像の一部を描画するか，他の画像に入れ換えるだけですから．

たとえば右ボタンクリックだって，いつも同じカーソルではありません．
ウィンドウのサイズを変更するときは矢印になりますし，サイズ変更は十字，
スビリッターはI型，というふうに変化します．
これをいちいち作っていては大変です．システムが提供するものをそのまま
利用するほうが簡単です．

例のアプリでは，サイズ変更の時はデフォルトになってしまうようです．
常にじゃないんですね．[261]で画像を使用する方法なら常に画像が表示
されますよ．

どちらを採用するは，鈴木商店さんが決めて下さい．

まっ，いずれにしてもあまり感心しませんけどね．
ネットワーク越しに，他の人のパソコンの操作を見て指導するならともかく，
例のソフトの作者には悪いですが，右ボタンをクリックしたか，している
とかは，操作している本人がわかっていると思いますけどね．

遊び心としては面白いとは思いますよ．

では，この件は一件落着ということですね．


[1614] Re6:カーソルの変更返信　削除
2008/4/15 (火) 17:09:15 Mr.XRAY
▼ 鈴木商店さん

> 遊び心としては面白いとは思いますよ

失礼!!．

>ソフトの操作説明動画を作成したいので

ということなんですね．

> http://video.nifty.com/cs/catalog/video_metadata/catalog_080330073823_1.htm

もそういうことですか．
ならなおさら[261]の画像を追加する方法の方が私的にはいいと思います．
だって，操作説明ならば，尚更，システムカーソルはそのままの方がいい
のではないでしょうか?


[▼次のスレッド]
INCM/CMT
Cyclamen v3.82