マウスクリックでRGBを取得するには？
解決フォーム以外の領域（ウィンドウ全体）でマウスクリックで色を取得したいと考えているのですが、うまくいきません。
ご教授お願いいたします。
Delphi 6 Personal , WinXPPro
デスクトップ領域などの、
自Ｆｏｒｍ外のクリックした位置の色を得たい
という事でしょうか？
application.OnDeactivate時に、
デスクトップのイメージを取得して、
〜.Color := 取得したImage.Canvas.Pixels[x.y];
で出来るかと思います。
※（x.y）はMouse.CursorPosで。
※デスクトップのイメージを得るのは検索すれば見つかると思います。
※FormのOnDeactivateではダメです。Help参照。
それだと、Alt+Tagでも発生しますよね。
スペルミス。
Alt+Tab
Halbow です。
色の取得は、画像キャプチャの応用なので簡単です。
この質問の難しいところは、自分が作ったウィンドウ以外でのマウスクリックを
検出することですね。これはグローバルフックでできますが、DLL を作らなけれ
ばならないので、掲示板で回答を書くのをためらってしまいます。
クリックした時に色が取得出来ていればいいのではないでしょうか？
deactivate時は、
マウスボタンが押されているか確認するのは不可能ですか？
getkeystateで出来ませんか？
Halbow です。
マウスクリックをグローバルフックで検出したとしても、ボタンなどを押すたび
に色を取得してしまうので、かえって使いにくいと思います。色を取得したい
ところにマウスを持っていって、たとえば F11 キーを押して色を取得する、
というのなら簡単そうです。
> deactivate時は、
> マウスボタンが押されているか確認するのは不可能ですか？
> getkeystateで出来ませんか？
「マウスのボタンが押されている」＝「マウスのボタンが今押された」ではありませんから、押されているか確認できても、クリック時に取得は無理です。
例えば、
アプリ内のどこかでマウスダウン、Alt+Tabでタスクを切り替え(この時点でOnDeactivate発生)
こういう場合の判別が無理です。
それと、おそらくマウスでクリックしたい場所は、自分のアプリケーションウィンドウが表示されていない状態でのどこかでしょう。
そうであれば、デスクトップのスナップショットを取得し、クリックさせる方が実用的と言えます。
# マウスキャプチャでもできるかもしれませんが、未確認です
Halbowさんへ。
グローバルフックを使わずに、単純なマウスキャプチャでできませんか？試していないのでわからないのですが。
Halbow です。
> グローバルフックを使わずに、単純なマウスキャプチャでできませんか？
SDK の SetCapture() API のところには、
If the mouse cursor is over a window created by another thread,
the system will direct mouse input to the specified window only
if a mouse button is down.
となっていますので、例えば、Button1 を押してキャプチャを開始して、
Form1 を最小化し、取得したい場所のところへカーソルを持っていって、
というその間ずっと、ボタンを押し続けていないと、キャプチャが
はずれてしまいます。これでは無理ですね。
タイマで GtKeyState や GetAsyncKeyState で監視しておくのが
実用的かも知れませんね。
> ボタンを押し続けていないと、キャプチャが
> はずれてしまいます。これでは無理ですね。
そういえばそうですね。
勘違いしていたようです。
ありがとうございました。
みなさん、ご教授ありがとうございます。
説明不足ですいません。
自アプリにスポイト機能をつけたいと考えています。
スポイトボタンをクリックし、マウスカーソルをスポイトに変更。
それからデスクトップ上の色を取得したいです。
マウスボタンを離した瞬間に、その時点の色を取得できたらいいと考えています。
上級者レベルでしょうか？
Halbow です。
新規で Form1 に Button1 と Panel1 を置いて
public
function GetColorAtPos(pt:TPoint):TColor;
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
function TForm1.GetColorAtPos(pt: TPoint): TColor;
var
DispDC: HDC;
begin
result := clBlack;
DispDC := CreateDC('DISPLAY',nil,nil,nil);
if DispDC <> 0 then begin
result := GetPixel(DispDC,pt.x,pt.y);
DeleteDC(DispDC);
end;
end;
procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
Pt:TPoint;
begin
Pt := Mouse.CursorPos;
Panel1.Color := GetColorAtPos(Pt);
end;
Button1 をマウスで押したまま、スクリーンの任意の場所で離すと、そこの
色が Panel1 に反映されます。
レスかなり遅くなってしまって申し訳ございません。
みなさんのおかげで解決いたしました。
これからもDelphiプログラミングをがんばっていきたいと思ってますので、
よろしくお願い致します。
| ツイート |  |