delphi的获取某坐标的颜色值

本文整理自网络，侵删。

 1.通过API函数GetPixel(),获取某个点的颜色值;
var    PT : TPoint;    C  : TColor;    DC : HDC;　 hwd : THandle;    I : integer;begin    GetCursorPos(PT);　 hwd := WindowFromPoint(PT);    DC := GetDC(HWD);    C := GetPixel(DC,PT.x,PT.y);　// self.color := c;  //设置窗体颜色    edit1.text := FORMAT($%.6x,[C]);    //下面在指定窗口句柄下面绘制一条直线；    for i := 0 to 800 do    begin         setPixel(DC,50,i,$233cc8);    end;end;获取的TColor颜色值为BGR格式($233cc8),和网页html的RGB格式相反，如要和delphi颜色效果相同，设置为#c83c23; 

相关阅读 >>

Delphi中用tlistview显示数据库数据

Delphi 读取全网站链接

Delphi ado通用操作数据单元

Delphi xe5 使用 android 内置函数几个小测试

Delphi 直接调用记事本（notepad）打开文本文件

postmessage和sendmessage的区别

Delphi文件管理类函数

Delphi下的纯pascal的十六进制转十进制

Delphi 图像二值化

Delphi程序在win7 win8 win10下自动请求以管理员身份运行

更多相关阅读请进入《Delphi》频道 >>