Delphi экранная пипетка - есть ответ

Ответы:

Компонента такого нет. Можно взять код и создать на его основе Класс или Компонент и вынести в отдельный файл типа "Pipetka.pas" и подключать к проектам в разделе "uses"
Сам код будет что-то типа этого:
...
var
DC: HDC;
Cur: TPoint;
ColorValue: Cardinal;
red,green,blue:integer;
....
Begin
DC := GetDC( 0 ); //рабочий стол
// Получаем координаты курсора
GetCursorPos( Cur );
// Узнаем цвет пикселя точки
ColorValue := GetPixel( DC, Cur.X, Cur.Y );
ReleaseDC( 0, DC ); //освободим дескриптор
.....
Этот код можно написать в обработчик Timer

11 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.