Farbe unter dem Mauszeiger erkennen

[TStringlist]

Hier nochmal das Beispiel für eine diesbezügliche Ergebnisausgabe im RGB- & Hex-Format:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var DC : HDC;
    AColor : Array[1..4] of Byte;
begin
  DC:=CreateDC('DISPLAY',NIL,NIL,NIL);
  DWord(AColor) := GetPixel(DC,Mouse.CursorPos.X,Mouse.CursorPos.Y);
  DeleteDC(DC);
  Label1.Caption := 'R: ' + IntToStr(AColor[1]) + ';   ' +
                    'G: ' + IntToStr(AColor[2]) + ';   ' +
                    'B: ' + IntToStr(AColor[3]) + ';   ' +
                    'Hex: ' + IntToHex(DWord(AColor),6);

end;