acces violation при запрете движения мышки

[gylayko]

мне нужно, чтобы мышкой нельзя было выйти за пределы формы. делаю так

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

выскакивает ошибка ошибка.jpg

[Stilet]

PRect замени на TRect.
Возможно после этого нужно будет писать так: ClipCursor(&Rect);

[NewLamer&Programer]

procedure TForm1.FormActivate(Sender: TObject);
var PRect: TRect;
begin
    PRect:= Rect(Left,Top,Left+Width,Top+Height);
    ClipCursor(@PRect);
end;

[Somebody]

PRect: TRect;

Это офигенно круто называть переменную типа TRect PRect...

[tools]

обозначили как указатель и не инициализировали, ясно что Access Violation выпадет...

[NewLamer&Programer]

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

Это офигенно круто называть переменную типа TRect PRect...

а что в этом такого? у меня все работает

[Stilet]

а что в этом такого?

Просто имя PRect может уже быть описан в модуле windows, а тут в программе получается пересечение имен. Могут быть проблемы.

[Somebody]

При компиляции-то проблемы вряд ли будут, можно даже параметр функции типа HWND назвать HWND, например; проблемы будут при чтении и понимании.