delphi里面，如何获取指点窗口内坐标100,100的颜色？

Posted 2023-03-19

var A:TColor;
begin
  a:=Canvas.Pixels[100,100];
  ShowMessage(ColorToString(a)); //显示颜色名称
  //ShowMessage(IntToHex(ColorToRGB(a),8));  //显示颜色的十六进制值
end;

参考技术A var
AColor: TColor;
begin
AColor := FMain.Canvas.Pixels[100, 100];
//如果需要获得某个控件的相对位置像素的颜色，也可以使用 Canvas
end;追问

你好，然后怎么把这个AColor 用showmessage显示出来啊？

追答

ShowMessage(IntToStr(c));

参考技术B procedure TForm1.Button1Click(Sender: TObject);
var
c:cardinal;
hdc:cardinal;
begin
hdc:=getdc(form1.Handle);
c:=getpixel(hdc,100,100);
end;追问

你好，然后怎么把这个c 用showmessage显示出来啊？

追答

showmessage（inttostr（c））；