Запрет выхода курсора за форму

[t2skler]

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

[mihali4]

Для этого есть функция ClipCursor. В качестве параметра нужно передать структуру Trect, которая будет указывать область движения курсора. Например: ClipCursor(Rect(10,10,100,100));

Учтите, что использование этой функции - плохой тон.

[t2skler]

Спасибо, на основе вашего ответа нашёл решение:

var
 Rect: TRect;
begin
 Rect.Left:=Left;
 Rect.Top:=Top;
 Rect.Right:=Left+Width;
 Rect.Bottom:=Top+Height;
 ClipCursor(@Rect);
end;

З.Ы. Этот код нужно поставить в таймер

[chatlanin]

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

З.Ы. Этот код нужно поставить в таймер

хм.. а почему бы на событие OnMouseMove непоставить?

[mihali4]

Ни то, ни другое совершенно не нужно.
Вот, набросал рабочий код (можно и по кнопке):

procedure TForm1.FormActivate(Sender: TObject);
var myr: PRect;
begin
myr.Left:=Left;
myr.Top:=Top;
myr.Right:=Left+Width;
myr.Bottom:=Top+Height;
ClipCursor(myr);
end;

Это - все, что нужно. Никаких таймеров и прочей лабуды...

З.Ы. Только что увидел, что ТС написал то же самое

[TrapQ]

Поправка на ветер

procedure TForm1.FormActivate(Sender: TObject);
var myr: TRect;{<===!!!}
begin
myr.Left:=Left;
myr.Top:=Top;
myr.Right:=Left+Width;
myr.Bottom:=Top+Height;
ClipCursor(@myr); {<===!!!}
end;

[mihali4]

Вы хотите сказать, что мой вариант - нерабочий ?

[x128]

Вы хотите сказать, что мой вариант - нерабочий ?

Я хочу сказать, пример нерабочий:
1) myr: PRect это указатель, соответственно перед присвоением значений нужно выделить память.
2) Ограничение будет работать после запуска, но любая манипуляция с окном (перемещение, изменение размера, сворачивание/восстановление), отменят эти ограничения.

[Sibedir]

Вот, немного переиначил

var
  ClipRect: TRect;
begin
  ClipRect.Left   := Left + GetSystemMetrics (SM_CXFRAME);
  ClipRect.Right  := ClipRect.Left + ClientWidth;
  ClipRect.Top    := Top + GetSystemMetrics (SM_CYCAPTION) + GetSystemMetrics (SM_CYFRAME);
  ClipRect.Bottom := ClipRect.Top + ClientHeight;
  ClipCursor (@ClipRect);
end;

Запрет выхода за клиентскую область окна.

[Claster]

А как сделать нечто подобное с формами когда их 2, сделать что бы 2 форма как бы упиралась в 1 и не могла выйти за нее?