delphi 獲取圖片某一像素的顏色值

前言：在VCL里有GetPixel函數，可直接用，在FMX里直接用這個函數沒有定義，在FMX的library中找這個函數在FMX.Graphics.TBitmapData.GetPixel中

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

　　后來我聲明了一個TBitmapData變量，結果可以使用該函數了，我欣喜若狂...

在窗體上放一個Image，在Image的OnMouseUp事件中取出鼠標點擊那點的像素

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