Pixel auf Form ermitteln

[marabu]

Hallo,

Canvas wird für die Farbermittlung aber nicht wirklich gebraucht:

Delphi-Quellcode:

function GetColor(ptScreen: TPoint): TColor;
begin
  with ptScreen do
    Result := GetPixel(GetWindowDC(GetDesktopWindow), X, Y);
end;

Freundliche Grüße