-
Привет. Не могу решить задачу. Дело в том, что надо написать отталкивание курсора от определенной формы по хендлу, чтобы было невозможно управлять курсором на этой форме.
Знаю хендл, Знаю как получить координаты курсора X/Y
не знаю: Как узнать размеры окна и как написать условие, чтобы при подходе курсора он отталкивался от формы.
-
Ногами отталкивался что ли?
-
нет, курсор будет перемещаться mouse_event(MOUSEEVENTF_MOVE, xx, yy, 0, 0);
-
> Как узнать размеры окна
GetWindowRect
> как написать условие,
лови WM_NCMOUSEMOVE потом делай SetCursorPos
-
> Как узнать размеры окна
GetWindowRect
-
а условие какое, if then?
-
> [5] цывп (05.06.09 17:19)
кто должен отталкивать? сама форма или что-то извне?
-
> а условие какое, if then?
if курсор_близко_к_форме then отталкивать
-
по-моему, делается мышиным хуком
-
Эм... Что-то вроде такого, но наоборот? procedure TForm1.Button1Click(Sender: TObject);
var t: tRect;
begin
GetWindowRect(button1.Handle, t);
clipcursor(@t);
end;
-
курсор не должен попасть на форму. надо его отводить
-
> курсор не должен попасть на форму. надо его отводить
RTFM: SetWindowsHookEx, WH_MOUSE, WH_MOUSE_LL
-
как насчет pr := @r;
clipcursor(pr);
|