положение курсора

[mishel]

Помогите пожалуйста, я в свою программу запихнул рисунок, состоящий из нескольких квадратов, как сделать так, чтоб при нажатии на один из этих квадратов он выделялся.
P.S. Дело не в выделении квадрата, а в том как определить положение курсора над квадратом.

[zetrix]

Выложите исходники (не в виде текста, а в виде архива (полностью, но без ехе файла)) - разберёмся, мне на словах сложно понять...

[SuperVisor]

Можно брать цвет пикселя под курсором.
По-моему Canvas.Pixel(X,Y) возвращает цвет пикселя... Не уверен, пишу по памяти.

[Speeker]

можно по координатам курсора мыши (если знаешь координаты границ квадрата) обработчик события TForm1.Image1MouseDown координаты х,у

[mishel]

Я с помошью функции, указанной ниже хотел получить координаты курсора мыши, но когда стал устанавливать условие при нажатии на рисунок, а именно на проверку области нажатия (туда ли я "ткнул или не туда"), чего-то не пошло, я не могу понять почему, может я в функции не то задал???


function GetCursorPos (var lpPoint: TPoint): BOOL; stdcall;
begin
GetCursorPos (P);
end;

procedure TMainform.Place_of_humanClick(Sende r: TObject);
begin
if P:=

[Virtson]

Выложите исходники, Вас же попросили !

[mishel]

Дело все в том, что исходники на другом компе, и у него нет выхода в Инет, но что хуже всего, это то что с него ни флешкой ни диском не скинуть файлы

[psyke]

PtInRect(lprc: TRect; p: TPoint): Bool;
ScreenToClient(не помню)..

вот так и определишь.

[SuperVisor]

Сообщение от mishel

...ни флешкой ни диском не скинуть файлы

А как насчет старого, но верного (иногда) Floppy?
GetCursorPos - Win API функция и возвращает положение курсора относительно левого верхнего угла дисплея (!!!), т.е рабочего стола.

[Speeker]

Сообщение от mishel

function GetCursorPos (var lpPoint: TPoint): BOOL; stdcall;
begin
GetCursorPos (P);
end;

procedure TMainform.Place_of_humanClick(Sende r: TObject);
begin
if P:=

if (p.x>Верхняя левая граница квадрата1 по х) and (p.y<Верхняя левая граница квадрата1 по у) and (p.x<нижняя правая граница квадрата1 по х) and (p.y<нижняя правая граница квадрата1 по у) then выделить 1-й квадрат