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

2025-02-22 22:25:11

推荐回答（3个）

回答1：

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

回答2：

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

回答3：

procedure TForm1.Button1Click(Sender: TObject);
var
c:cardinal;
hdc:cardinal;
begin
hdc:=getdc(form1.Handle);
c:=getpixel(hdc,100,100);
end;