Платные хостинги     Раскрутка сайта     Книги по программированию

Одна странность

- Вот я сделал небольшой код для определения относительных координат мышки:procedure TForm1.Hotykey(var msg:TMessage);varP:TPoint;Rect:TRect;Wnd:HWND;beginif (msg.LParamLo=MOD_ALT) thencase msg.LParamHi of49:AOLButton1.OnClick(AOLButton1);.................................90:begin   //определение относительных координат мышки    GetCursorPos(P);    GetWindowRect(WindowFromPoint(P),Rect);    Edit1.Text:=IntToStr(P.X-Rect.Left)+','+IntToStr(P.Y-Rect.Top);   end;end;end;Но если я поменяю стиль своей форма во время работы программы на StayOnTop, то этот код не работает. Отменя етого стиля тоже не к чему не приводит.В чем может быть дело?

- А при чём тут форма, если ловите Вы WM_HOTKEY ?

- А ScreenToClient(...) нельзя воспользоваться? По-моему проще должно получиться.

- Я не знаю при чем тут форма, но данный эффект возникает после изменения стиля формы на StayOnTop

Интернет казино     Онлайн игры     Увеличение члена     Купить DVD