vereinfacht ausgedrückt, liefert
Code:
procedure TForm1.Timer1Timer(Sender: TObject);
Var Pt:TPoint;
DC:HDC;
begin
GetCursorPos(Pt);
DC:=CreateDC('DISPLAY',NIL,NIL,NIL);
label1.Caption := inttostr(GetPixel(
DC,Pt.x,Pt.y));
End;
auf label1 den farbwert des jeweiligen pixels, auf dem sich die maus befindet!
Problem gelöst, auf zum nächsten! DANKE AN ALLE