Определить попала ли точка в область?

[Iogan Gamba Puti]

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

[frodo]

Сообщение от Iogan Gamba Puti

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

Помоему лучше по формулам и соординатам, намного проше!

[B_N]

А чтобы меньше возиться (например, если фигура - сложная), Windows GDI предоставляет для этого регионы и набор функций для работы с ними, скажем, PtInRegion.
Region Functions

[Iogan Gamba Puti]

Огромное спасибо,с регионами разобрался.Только не получается получить координаты мыши.Щас глупость спрошу,но подскажите,пожалуйсто:
Для событи щелчка левой кнопки мыши пишу процедуру:

procedure WMLButtonDown(var Msg : TWMMouse);message 
WM_LBUTTONDOWN;
.....
procedure TForm1.WMLButtonDown(var Msg: TWMMouse);
begin
xPos := GET_X_LPARAM(lParam);
yPos := GET_Y_LPARAM(lParam);

end;

Соотвественно не работает.Просто в разделе помощи к ф-ции PtInRegion,
Написано,что чтобы определить координаты мыши делайте так:
xPos = GET_X_LPARAM(lParam);
yPos = GET_Y_LPARAM(lParam);
а как на Delphi сделать?

[B_N]

http://programmersforum.ru/showthread.php?t=18165
-------------------------------
P.S.
Собственно, о чём это я ....... Ведь

type
  TWMMouse = packed record
    Msg: Cardinal;
    Keys: Longint;
    case Integer of
      0: (
        XPos: Smallint;
        YPos: Smallint);
      1: (
        Pos: TSmallPoint;
        Result: Longint);
  end;

И X, и Y приходят прямо в параметре...

[Iogan Gamba Puti]

В этом случае компилятор ругается на синтаксис:
X := SMALLINT( lParam and $FFFF);
Y := SMALLINT( (lParam shr 16) and $FFFF);
Во втором случае,я так понимаю при обработке любого сообщения Windows
передает и координаты мыши заодно через эту структуру.
Но обращение TWMMouse.XPos у меня не заработало
Можно ещё использовать вариант GetCursorPos().Здесь возникает вопрос,как экранные координаты перевести в логические,чтобы можно было работать с регионами.

[Zeraim]

GetCursorPos(Pt : TPoint) разьве это не логическая ? Ты получаеш переменную Pt и выдёргиваеш из неё координаты по отдельности: Pt.X, Pt.Y (Не бейте если что-то не то сказал ^_^)

[Iogan Gamba Puti]

Я иммел ввиду ,что Windows GDI->Region Functions и GetCursorPos(Pt : TPoint) в разных координатных системах.