首页 > 代码库 > delphi的获取某坐标的颜色值

delphi的获取某坐标的颜色值

1.通过API函数GetPixel(),获取某个点的颜色值;

var    PT : TPoint;    C  : TColor;    DC : HDC;begin    GetCursorPos(PT);    DC := GetDC(0);    C := GetPixel(DC,PT.x,PT.y);  self.color := c;  //设置窗体颜色    edit1.text := FORMAT($%.6x,[C]);end;

  

获取的TColor颜色值为BGR格式($F6E6E1),和网页html的RGB格式相反,如要和delphi颜色效果相同,设置为#E1E6F6;

delphi的获取某坐标的颜色值