如題 procedure TForm1.Image3MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); var c2,c3 : TColor; begin c2 := Image3.Canvas.Pixels[X,Y]; c3 := RGB(GetRValue(c2),GetGValue(c2),GetBValue(c2)); Panel1.Caption := Format('%d %d %X',[X,Y,c2]); end; 如果沒有縮放,結果是正確的 但一旦有縮放,明明眼睛看到的是紅色的,但得到的確是一個不是紅色的色值 what?

事實上，使用Stretch:=True 再利用 Image3.Canvas.Pixels[X,Y]; 取得位置也是原圖形大小的位置。 主要是因為StretchDraw 是在執行時才畫上去。 而且是畫在Image上，另取得Canvas.Pixels取的是原圖形的Canvas 因此圖形原來的Canvas並未改變。當然取得的位置顏色，也仍然是原圖形的顏色。

果然~ 也就在縮放後不能在元件內作搜尋了 謝謝您的指導 ^^