Farbwerte von Elementen beim Darüberfahren auslesen

[TillWe]

Delphi-Quellcode:

procedure TForm1.Shape1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  c:TCanvas;
  pos: TPoint;
begin
  c:=TCanvas.create;
  c.handle:=GetWindowDC(GetDesktopWindow);
  result:=getpixel(c.handle,x,y);
  c.free;
  GetCursorPos(Pos);
  Panel1.Color:=DesktopColor(pos.x, pos.y);
end;

So oder ähnlich

Oder meinst Du was ganz anderes ?

mfg

Edit: Upps...