delphi 获取图片某一像素的颜色值

前言：在VCL里有GetPixel函数，可直接用，在FMX里直接用这个函数没有定义，在FMX的library中找这个函数在FMX.Graphics.TBitmapData.GetPixel中

　　结果我引用FMX.Graphics不行，引用FMX.Graphics.TBitmapData也不行，然后我就郁闷了半天。

　　后来我声明了一个TBitmapData变量，结果可以使用该函数了，我欣喜若狂...

在窗体上放一个Image，在Image的OnMouseUp事件中取出鼠标点击那点的像素

?

1 2 3 4 5 6 7 8 9 10 11 12

procedure TForm2.Image1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Single); var     vBitMapData: TBitmapData;     color: TAlphaColor; begin     if Image1.Bitmap.Map(TMapAccess.Write, vBitMapData) then     begin         color := vBitMapData.GetPixel(Round(X), Round(Y));  // 获取像素 返回类型为TAlphaColor         ShowMessage(IntToHex(color, 1)); 　　　　　　　　　　　　 //为十六进制的颜色值     end;     Image1.Bitmap.Unmap(vBitMapData); end;

http://www.cnblogs.com/studypanp/p/5003036.html 获取RGB