Курсор мыши не должен выходить за пределы формы

@Vologd · Регистрация: 03.11.2013

Author24 — интернет-сервис помощи студентам

Здравствуйте, подскажите пожалуйста, каким образом, можно реализовать запрет выхода курсора мыши за пределы формы. В инете поискал, наше код, но так как я его понимаю, то наверно не могу и правильно встроить:

Delphi

myr.Left:=Left;
  myr.Top:=Top;
  myr.Right:=Left+Width;
  myr.Bottom:=Top+Height;
  ClipCursor(myr);

01.01.2014, 17:19

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
  aRect : TRect;
begin
  aRect := BoundsRect;
  ClipCursor(@aRect);
end;

@Vologd · 01.01.2014, 17:22 **[ТС]**

Все получилось! Но только по клику кнопки, прописывал в событие формы онкреат, почему-то не пошло((( Большое спасибо!

01.01.2014, 17:24

Вынеси в OnActivate.

@FromOutSide · 26.04.2016, 06:24

А что если форма изменит размер? Или она изменит своё место положение?

@Vologd 21 / 19 / 12 Регистрация: 03.11.2013 Сообщений: 870
	01.01.2014, 17:22 [ТС]	3
	Все получилось! Но только по клику кнопки, прописывал в событие формы онкреат, почему-то не пошло((( Большое спасибо! 0

@FromOutSide 禁止 13 / 11 / 2 Регистрация: 04.09.2014 Сообщений: 230
	26.04.2016, 06:24	5
	А что если форма изменит размер? Или она изменит своё место положение? 0

Опции темы