Question

DELPHI 中怎么取Image图中的某一点的颜色??

var
pt: TPoint;
c: TColor;
begin
GetCursorPos(pt); //这里是鼠标指的位置的颜色
c := GetPixel(GetDC(0), pt.X, pt.Y);
Self.Color := c;

我的Image1里有张图,比如300x300大小
比如我想知道,50x50处的颜色....应该怎么操作??谢谢了.

Answer 1

为什么不用TCanvas?

用GetPixel的话就这样:
Image1的MouseMove事件下
begin
with Image1 do
Self.Color:=GetPixel(GetDC(Parent.Handle), X+left,Y+Top);
end;

如果你不想用image的事件只用GetCursorPos获得坐标的话那就再加一个GetWindowRect吧父窗口的位置计算进去但是这又何必?

Answer 2

GetDC(0)换成这个Image1的dc就可以了
Image1的成员里面肯定有，记得应该有个Picture对象，貌似是TGraphic继承过来的，应该有Cancas对象，拿它的Handle就可以了