喫茶XRAYトップページ

[スレッド全体]
[1602] カーソルの変更返信　削除
2008/4/13 (日) 07:47:52 鈴木商店
はじめまして。鈴木商店と申します。

Delphi(Free　P6)を　最近　年取って(団塊の世代人)始めたのは良いのですが
何がどうなっているのかが　解りませんが　DelphiのFreeに出会って
ぼちぼちと始めている所ですが　中々　前に進んでいません。
が　ぜひ　こんなの作って見たいなと言うのがあります。
マウスのカーソルを自分で作成したカーソルに変更して見たいと思い
あちこちと　探していましたら　こちらのフック関数にたどり着きましたが
アレンジ方法が全く解りません　出来ましたら　作成のサンプルを
教えて頂けましたら嬉しいです　宜しくお願い致します。

他にも　探していたら　下記に色々なソフトを見つけました。
出来ましたら　　**tp://afsoft.jp/program/down2/afmoucur103.exe　の様な
カーソルを変更出来るようなサンプルコードを教えて頂ければ幸いです。
フックは下記にDLLを使ったコードも見つけましたが　どうやって使うのか理解出来ませんでした。
**tp://www.geocities.co.jp/SiliconValley-Cupertino/5037/Software/Archive/Hook_Dll.lzh

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

横からご免なさい。

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

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

■添付ファイル 30.lzh
[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)は使った経験が無いので解りませんが、多分ヘルプ
も付属していると思います。  是非参考にして下さい。


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