ClipCursor не могу разобраться с координатами

← →
Al (2008-07-03 10:04) [0]

Здраствуйте.
Не могу никак разобраться с координатами процедуры procedure ClipCursor(Rect: LRect); Задача банальна при нажатии одной кнопки привязать курсор к другой. С SetCursorPos все понятно.

{GetWindowRect (Button2.Handle, Rect);
SetCursorPos (Rect.Left + Round (Button2.Width/2), Rect.Top + Round (Button2.Height/2));}
а с clipcursor проблема. Напишите кому не сложно примеры по аналогии ,

← →
Rouse_ © (2008-07-03 10:26) [1]

procedure TForm1.Button1Click(Sender: TObject); var ARect: TRect; begin GetWindowRect(Button2.Handle, ARect); SetCursorPos(ARect.Left + Button2.Width shr 1, ARect.Top + Button2.Height shr 1); ClipCursor(@ARect); end; procedure TForm1.Button2Click(Sender: TObject); begin ClipCursor(nil); end;

← →
Al (2008-07-03 16:34) [2]

ClipCursor не могу разобраться с координатами Найти похожие ветки