[TidalAeon]

Делая лабу по операционным системам наткнулся на такую проблему.
В лабе присутствует регион, созданный Elli:=CreateEllipticRgn (...). Он меняет цвета и двигается по нажатию стрелок.
Вопрос как реализовать движение региона мышкой?
Нашел что есть такая функция GetCursorPos(Tpoint). Использовал ее, потом с помощью PtInRegion проверяю наличие Tpoint.x и Tpoint.y в регионе Elli:

Код:

if PtInRegion (Elli, Tpoint.x, Tpoint.y) then 
...
end;

И даже вставляя элементарное присваивание blue:=255 ничего не получаю.
Я так понял что я просто проверяю положение курсора? А как получить координаты, где было произведено нажатие левой кнопки мыши? А отпускание?
P.S. Лабы Windows API.

[angvelem]

Так же как и не региона. Нажимаем кнопку мышки - выставляем флаг нажатия и запоминаем старые координаты. Двигаем мышку - обновляем координаты, выставляем новую позицию региона. Отпускаем кнопку мышки - снимаем флаг.

[TidalAeon]

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

Так же как и не региона. Нажимаем кнопку мышки - выставляем флаг нажатия и запоминаем старые координаты. Двигаем мышку - обновляем координаты, выставляем новую позицию региона. Отпускаем кнопку мышки - снимаем флаг.

А какая функция получения координат? я не понял

[YVitaliy]

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

А какая функция получения координат? я не понял

Так ты же ее сам и описал:

Код:

function WndProc(Wnd:HWND;Msg,wParam,lParam:Integer):Integer;stdcall;
var CPos:TPoint;
begin
    if msg=WM_LBUTTONDOWN then
         begin
          getCursorPos(CPos);
          ScreenToClient(Wnd, CPos);
          showmessage(inttostr(CPos.X)+', '+inttostr(CPos.Y) );

         end;
end;

Где Wnd - твое окно.

ЗЫ конечно еще есть
LOWORD(lParam);
HIWORD(lParam);
тоже должно действовать