Pixel auf Form ermitteln

[Thorben_K]

Hallo

ich möchte herraus finden welche Farbe ein Pixel auf meinem Form hat.

Dies geht ja bekanntlich mit
Form1.Canvas.Pixels[x,y] das probleme ist nun leider das wenn an der stelle z.b. ein Button liegt, er sagt das das ausserhalbe deine bereichs liegt (er gibt -1 zurück) was ja auch verständlich ist, weil das Pixel befindet sich ja auf der Canvas des buttons. Nun habe ich die Forum suche bemüht und diesen COde hier gefunden:

Delphi-Quellcode:

function getColor(x, y: LongInt): TColor;
var canvas: TCanvas; 
begin
  canvas:=TCanvas.Create; 
  try 
    canvas.Handle:=GetWindowDC(GetDesktopWindow);
    Result:=canvas.pixels[X , Y
  finally
    canvas.Free;
  end;
end;

Das Probleme ich bekomm die Pixelangaben in relation meines Formulars und nicht des gesamten Bildschirmes. also habe ich es dann so versucht

Delphi-Quellcode:

function TForm1.getColor(x, y: LongInt): TColor;
var canvas: TCanvas; 
begin
  canvas:=TCanvas.Create; 
  try 
    canvas.Handle:=GetWindowDC(GetDesktopWindow);
    Result:=canvas.pixels[X + Form1.left , Y + Form1.Top];
  finally
    canvas.Free;
  end;
end;

Aber meine "Test" lieferten eine Falsche Farbe, hat einer eine bessere Idee oder weiss was ich falsch mache?

Danke euch schonmal