SetCapture и выход курсора за пределы окна

[BLACK_RAIN]

Здравствуйте.
В главном окне есть child-окно класса Static с переопределенной оконной функцией.

    WM_LBUTTONDOWN:
    begin
       flag := true;
       SetCapture(wnd);
     end;

    WM_LBUTTONUP:
    begin
       flag := false;
       ReleaseCapture(wnd);
    end;

    WM_MOUSEMOVE:
    if flag then
    begin
      x := loword(Lpar);
      if Lpar<=0 then
      y := 0 else
      y := HiWord(Lpar);
      settext(form1,IntToStr(x)+','+ IntToStr(y)+','+ inttostr(Lpar));
    end;

Если курсор мыши выходит за левую или за верхнюю границу окна (или находится в неклиентской области), то x и y зашкаливают и дальнейшие вычисления становятся неправильными.
С этим можно что-то сделать?

[waleri]

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

С этим можно что-то сделать?

Рассматривать x и y как *знаковые* переменные (и конвертировать их как таковые из lparam).
После этого проверять входят ли координаты в окно:
if ((x >= 0) && (x <= width)) ну и аналагично для y.

А зачем это нужно?

[BLACK_RAIN]

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

Рассматривать x и y как *знаковые* переменные (и конвертировать их как таковые из lparam).

Объясните

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

А зачем это нужно?

Например: нужно рисовать прямоугольник. Если курсор выходит за пределы окна, то событие WM_MOUSEMOVE перестаёт приходить. А попасть на первый пиксель, соответствующий точке 0 на клиентской области без выхода за пределы - очень сложно. Это пиксельхантинг.

[waleri]

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

Объясните

Разницу между int и unsigned int знаете?
А как преоразуется unsigned short в int?
Какой у вас тип x и что возвращает loword?

И еще, у вас есть
if Lpar<=0 then
y := 0 else

Но почему-то для x такого нет - почему?

Ответьте себе на эти вопросы и сможете решить проблему.

[BLACK_RAIN]

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

Разницу между int и unsigned int знаете?

Знаю,но при чем тут это? Это же Delphi, а не С. В делфи нет типов unsigned, а целочисленные типы конвертируются друг в друга простым присваиванием.

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

Какой у вас тип x и что возвращает loword?

У меня х : integer, а loword возвращает значение типа word. Это диапазон 0..65535, что входит в integer.

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

И еще, у вас есть
if Lpar<=0 then
y := 0 else

Но почему-то для x такого нет - почему?

Потому что при выходе курсора мыши за левую границу окна, значение lpar всегда положительное и в этой проверке нет смысла.

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

if ((x >= 0) && (x <= width)) ну и аналагично для y.

Если делать так, то как я узнаю, с какой стороны за пределами окна находится курсор? GetCursorPos? Больше никак?

[Stilet]

В делфи нет типов unsigned

Вообще-то есть.
Cardinal к примеру.

а loword возвращает значение типа word.

А разве оно применимо к знаковым?
Всмысле при отрицательном же будет белиберда.

[BLACK_RAIN]

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

Вообще-то есть.
Cardinal к примеру.

ах да, точно. Они же просто названы по-другому.

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

Рассматривать x и y как *знаковые* переменные (и конвертировать их как таковые из lparam).

Теперь до меня дошло, что такое знаковая переменная - которая может принимать отрицательные значения.
А как их доставать из lparam, если не loword/hiword?

[Stilet]

Да так и доставай. LParam - и будет тебе integer.
Или тебе smallint нужен?

[BLACK_RAIN]

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

Да так и доставай.

Как "так"? Вот так?

x,y : integer;

      x := loword(Lpar);
      y := HiWord(Lpar);

Но так ведь не достаётся.

[waleri]

Так объявите x и y типом smallint