var
pt: TPoint;
c: TColor;
begin
GetCursorPos(pt);
c := GetPixel(GetDC(0), pt.X, pt.Y);
edtColor.Text := Format('$%.6x', [c]);
end;
全局探色器-函数
最新推荐文章于 2022-02-25 19:38:17 发布
var
pt: TPoint;
c: TColor;
begin
GetCursorPos(pt);
c := GetPixel(GetDC(0), pt.X, pt.Y);
edtColor.Text := Format('$%.6x', [c]);
end;