如何用鼠标点击读取所点击的图象的颜色和亮度，并在edit里显示数值？

Question

使用GetGValue和GetBValue及其相关函数，在Win32sdk帮助中有！
赋一小例子：（如何把颜色值转换为灰度值）
逐个像素转换。
function RgbToGray(Source: TColor) : TColor; 
var Target: Byte; 
begin
  Target := Round((0.30 * GetRValue(Source)) + 
(0.59 * GetGValue(Source)) + 
(0.11 * GetBValue(Source)));
  Result := RGB(Target, Target, Target); 
end;

Answer 1

canvas.Pixels(x,y)是Tcolor，在mousedown中使用吧。
再加上楼上的楼上的函数就完成了。

Answer 2

如果位图使用的是系统颜色的话,直接使用GetXValue会出问题.
建议先用ColorToRGB将其转换成RGB的颜色

Answer 3

To wanglong20002000:
   如果亮度变暗，则弹出对话框可以这样：
  
   你先保存上一个点的颜色值，然后与当前点的比较，根据这个比较结果调用
ShowMessage 就可以了。