掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
マウスクリックでRGBを取得するには？ (ID:4858)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
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 に反映されます。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.