Пипетка как в фотошопе

[Bayazet]

здравствуйте.
подскажите пожалуйста, как можно реализовать пипетку, которая берет цвет пикселя на который тыкаешь.
причем этот пиксель может быть не только на твоей форме, но и вообще в любой точке экрана.

[DomiNick]

Некоторые вопросы действительно трудно найти самому... Но такое.....

Открыл "Яндекс", ввёл запрос: "цвет пикселя под курсором"...
Первая ссылка: delphisources.ru


P.S.

Ну например так можно:

Procedure TForm1.Timer1Timer(Sender: TObject);
Var pnt: TPoint;
Begin
// Timer1.Interval=10;
GetCursorPos(pnt);
Image1.Canvas.Brush.Color:=GetPixel(GetDC(0), pnt.X, pnt.Y);
Image1.Canvas.Rectangle(0, 0, 20, 20);
End;

[Terran]

Можно ещё так:

Function GetPix: Cardinal;
Var
Dc: HDC;
Cp: TPoint;
Pix: Cardinal;
Begin
Dc:=GetDC(0);
GetCursorPos(Cp);
Pix:=GetPixel(Dc,Cp.X,Cp.Y);
ReleaseDC(0,Dc);
GetPix:=Pix;
End;