تشخیص رنگ یک پیکسل از فرم

[hadi azad]

با سلام
چگونه می توانم رنگ یک پیکسل از فرم یا image را تشخیص بدهم

[Sohrab_Tapar]

Canvas.Pixels[i,j]

[Delphi-Clinic]

function DesktopColor(const X, Y: Integer): TColor;
var
c: TCanvas;
begin
c := TCanvas.Create;
try
c.Handle := GetWindowDC(GetDesktopWindow);
Result := GetPixel(c.Handle, X, Y);
finally
c.Free;
end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
Pos: TPoint;
begin
GetCursorPos(Pos);
Panel1.Color := DesktopColor(Pos.X, Pos.Y);
end;