Как узнать цвет под мышкой?

← →
Denis56 (2004-05-21 15:28) [0]

Помогите плиз, как узнать какой цвет в данный момент под стрелкой мышки?

← →
Алхимик © (2004-05-21 18:13) [1]

1.Получить координаты курсора.
2.Если мыша над твоей формой, - TYouForm.Canvas.Pixel[x,y] : TColor;
3.C произвольным окном посложнее.

← →
Приколщик (2004-05-23 15:20) [2]

Удалено модератором

← →
Spaler (2004-05-23 16:55) [3]

Удалено модератором

← →
grom (2004-05-25 17:20) [4]

На сайте http://www.zdima-iv.nm.ru/есть исходник ColorChoose.zip

← →
ПЛОВ (2004-05-26 18:39) [5]

А скриншот сделать не пробовал? Вот потом можно и Canvas.Pixel[x,y] : TColor

← →
grom (2004-05-27 10:44) [6]

procedure TForm1.Timer1Timer(Sender: TObject);
var
p: TPoint;
c: TColor;
begin
GetCursorPos(p);
c := GetPixel(GetDC(0), p.X, p.Y);
Caption :="R="+IntToStr(GetRValue(c)) + " G=" + IntToStr(GetGValue(c)) + " B=" + IntToStr(GetBValue(c));
Color := c;
end;

← →
Каминский (2004-06-01 22:40) [7]

А потом ReleaseDC

Как узнать цвет под мышкой? Найти похожие ветки