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

[eduard93]

Claster: "Form2.Parent:=Form1;" не оно?

[Claster]

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

[artemavd]

Сообщение от 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;

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

[Serge_Bliznykov]

боюсь ляпнуть очевидную глупость, но

Как это исправить?

нужно вызвать ClipCursor с нужными параметрами (или nil или параметры той формы, которая должна ограничивать курсор):

ClipCursor(nil);

[artemavd]

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

боюсь ляпнуть очевидную глупость, но

Как это исправить?

нужно вызвать ClipCursor с нужными параметрами (или nil или параметры той формы, которая должна ограничивать курсор):

ClipCursor(nil);

Круто!
Спасибо, теперь все ок!