Вид для печати
Приветствую.
Мне необходима помощь в поиске метода отслеживания изменения цвета фона (пикселя) под курсором мышки в определённом месте экрана.
Т.е. курсор мышки находится в заранее установленной позиции и, если цвет этой позиции меняется, то происходит событие.
Любая информация по теме будет весьма и весьма полезной
Платформа: Delphi и только.
Через промежутки времени достаете тот нужный вам пиксель и сравниваете значение его цвета с предыдущим сохраненным значением. Если они не совпали, значит генерим событие.
Как достать тот самый пиксель - тут может быть не совсем все одинаково, выхватывать пиксель с какой либо трехмерной игры или видео может оказаться не таким уж простым, как пиксель с простого приложения, да и и еще разные ресурсозатраты будут. Но в новых версиях винды может с этим попроще чем в более старых.
В общем делайте скриншот экрана или отдельного окна если знаете какого и сравнивате цвет пикселя с тем что сохранили заранее. Как делать эти скриншоты нехитрым способом, легко гуглится.
[QUOTE=igorsolovev;14756905]
Т.е. курсор мышки находится в заранее установленной позиции и, если цвет этой позиции меняется, то происходит событие.
[/QUOTE]
позиции - формы?
TCanvas
property Pixels[X, Y: Integer]: TColor;
Координаты Pixels от мыши onMouseMove
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Label2.Caption := 'ClassName = ' + TObject(Sender).ClassName + ' Name = ' + TComponent(Sender).Name + ' x = '+inttostr(x) + ' y = ' + inttostr(y);
end;
[QUOTE=TmpFile();14764589]позиции - формы?
TCanvas
property Pixels[X, Y: Integer]: TColor;
Координаты Pixels от мыши onMouseMove
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Label2.Caption := 'ClassName = ' + TObject(Sender).ClassName + ' Name = ' + TComponent(Sender).Name + ' x = '+inttostr(x) + ' y = ' + inttostr(y);
end;[/QUOTE]
Сомневаюсь то он хочет отловить свое окно, но все равно в любом случае гуглится:)
Ребята, мне действительно не нужно отталкиваться от формы - мне нужно каким-то образом отловить цвет того пикселя, на который наведён курсор, при чём, перехват цвета должен происходить не только на каком-то определённом окне, а на всём экране, т.е. куда не наведи курсор - цвет этого пикселя должна перехватывать программа. Мужики, помогите с этим вопросом - сюда с вопросом я пришёл от безвыходности и не от нечего делать. Тема с виду кажется банальной и глупой, но это не так. Спасибо всем, кто помог по доброте душевной :)
[QUOTE=igorsolovev;14771642]Ребята, мне действительно не нужно отталкиваться от формы - мне нужно каким-то образом отловить цвет того пикселя, на который наведён курсор, при чём, перехват цвета должен происходить не только на каком-то определённом окне, а на всём экране, т.е. куда не наведи курсор - цвет этого пикселя должна перехватывать программа. Мужики, помогите с этим вопросом - сюда с вопросом я пришёл от безвыходности и не от нечего делать. Тема с виду кажется банальной и глупой, но это не так. Спасибо всем, кто помог по доброте душевной :)[/QUOTE]
Тебе уже нужен готовый код? так закажи его кому нибудь.
А если сам пишешь, так уже напиши.
Гуголь очень быстро наводит на GetCursorPos для определения координат мыши.
А также на код для создания скриншота подобный этому:
[PHP]procedure ScreenShot(DestBitmap : TBitmap) ;
var
DC : HDC;
begin
DC := GetDC (GetDesktopWindow) ;
try
DestBitmap.Width := GetDeviceCaps (DC, HORZRES) ;
DestBitmap.Height := GetDeviceCaps (DC, VERTRES) ;
BitBlt(DestBitmap.Canvas.Handle, 0, 0, DestBitmap.Width, DestBitmap.Height, DC, 0, 0, SRCCOPY) ;
finally
ReleaseDC (GetDesktopWindow, DC) ;
end;
end;
[/PHP]
Вот только копировать не весь экран а один пиксель. Может не самое идеальное решение, но вполне может оказаться приемлимым рабочим.
Большое спасибо! Я попробую этот вариант.