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;