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;
 

相关阅读 >>

Delphi2007-Delphi2010 程序不出现在任务栏的方法

tstringgrid 添加鼠标拖动功能

Delphi中设置条件断点

Delphi tnethttpclient上传文件

Delphi 如何从dll中检索导出函数的列表

Delphi xe10 传感器操作

Delphi idpop3收邮件

android实例-拍摄和分享照片、分享文本(xe8+小米2)

Delphi 两个exe之间共享数据

Delphi 与 c/c++ 数据类型对照表

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

转载请注明出处：木庄网络博客 » delphi的获取某坐标的颜色值