отловить нажатие в квадрате на форме

[HTTqp]

Помогите, пытаюсь отловить нажатие в определенном квадрате на форме. Пишу так:

case Msg of
...
    WM_LBUTTONDOWN:
      begin
        xPos: = LOWORD(lParam); // horizontal position of cursor 
        yPos: = HIWORD(lParam); // vertical position of cursor 
      end;
...
end;

Хочу чтобы при нажатии левой кнопкой мыши на квадрат вводилось сообщение "вы попали в квадрат", в ином случай "промах".

[Stilet]

А почему не через OnMouseDown?

[HTTqp]

потому что используется winapi

[Stilet]

Хм... Ладно. Тогда в чем сложность? Код по идее верный.
Добавь if и MessageBox

[HTTqp]

пытаюсь вот так

var
xPos,yPos: DWORD;

...
case Msg of
...
    WM_LBUTTONDOWN:
      begin
        xPos: = LOWORD(lParam); // horizontal position of cursor 
        yPos: = HIWORD(lParam); // vertical position of cursor
        if (xPos=10) and (yPos=10) then  messageBox(Handle,'Сообщение','Имя константы',mb_ok); 
      end;
...
end;

не выходит, что не так?

[Аватар]

А у квадрата одна точка что ли? У него какие-то размеры есть. То есть проверка в интервале. Да и координаты относительно экрана, их нужно к координатам относительно формы привести

[HTTqp]

а как указать от куда до куда, и как тогда кординаты к форме привязать?

[Stilet]

Во даешь стране гугля ))

cx:=100; cy:=100; len:=100; //Квадрат в координате 100,100 со стороной 100;
...
if (xPos>=cx) and (yPos>=cy) and (xPos<=cx+len) and (yPos<=cy+len)

[Аватар]

кординаты к форме привязать

У формы есть метод ScreenToClient

как указать от куда до куда

(x>=a) and (x<=a+w) and (y>=b) and (y<=b+h)
примени к своей ситуации