摘要： var Str: TPoint; BarHand: THandle; begin GetCursorPos(Str); BarHand := GetDC(0); Panel1.Color := GetPixel(BarHand, Str.X, Str.Y); Caption := IntToStr(Panel1.Color); 阅读全文