Как при нажатии на Mouse1 переместить курсор на цвет пикселя? (читать всё…)

Есть определенное окно, например notepad. Как переместить курсор по координатам в этом окне?

Lime

var

WindowName:string;

WindowRect : TRect;

WindowHandle : HWND;

CursorXpos,CursorYpos: Integer;

begin

WindowName := Edit1.Text; //Заголовок окна, например "Form1"

WindowHandle := FindWindow(nil,PChar(WindowName));

windows.GetWindowRect(WindowHandle,WindowRect);
memo1.Clear;

memo1.Lines.Add('window left pos: ' + IntToStr(WindowRect.Left));

memo1.Lines.Add('window top pos: ' + IntToStr(WindowRect.Top));
CursorXpos := StrToInt(Edit2.Text);//Х

CursorYpos := StrToInt(Edit3.Text);//Y
SetCursorPos(WindowRect.Left + CursorXpos, WindowRect.Top + CursorYpos);
memo1.Lines.Add('cursor final position: ' + IntToStr(WindowRect.Left + CursorXpos) + ','

+ IntToStr(WindowRect.Top + CursorYpos));

Пост написан при поддержке компании «Шторм-Элита» — основанной в 1993 году как центр технического обслуживания контрольно-кассовой техники.

Наше предложение:

Автоматизация торговли

Автоматизация розничной торговли позволяет владельцу бизнеса получить следующее:
1. Достичь точности учета товаров, недоступной при ручном учете.
2. Сократить сроки подготовки товаров к продаже.
3. Увеличить скорость обслуживания покупателей.
4. Снизить избыточные складские запасы.
5. Создать эффективную систему лояльности покупателей, которая невозможна без компьютерного учета.

тема на форуме

 
автоматизация торговли