حبس اشاره گر ماوس در فرم

[rainstorm]

چگونه می توان در دلفی اشاره گر ماوس را در یک فرم محبوس کرد؟

[Touska]

با استفاده از کامپوننتهای Lmd میشه این کار ا کرد.

موفق باشید :flower:

[m-khorsandi]

درود
برای محدود کردن اشاره گر:


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


و برای از بین بردن این محدودیت:


ClipCursor(nil);

[Dolphin]

از خود شی ماوس نیز می تونی استفاده نمایی

[szabeh]

آقا دلفین اگه میشه یک کد بگذارید.

[Dolphin]

سورس کد در کتاب دلفی 5 و نیز ebook ش قابل دریافت من خیلی وقت پیش دریافت کردم الان نمی دونم کجا دارم شرمنده ولی اگه پیداش کردم حتما برات می فرستم

[دنی کوئیل]

ممنون دوستان

خیلی به دردم خورد !

[Bahmany]

فکر کنم JV یک کامپوننت برای این کار داره
JVCL در اینترنت لینک free داره اگر با google جستجو کنی کلی لینک دانلود پیدا می کنی

[mralibeyki]

این هم یه کد باحال، حالشو ببر.

procedure TForm1.FormActivate(Sender: TObject);
var
Po :TPoint;
a:TRect;
begin
a := ClientRect;
with a do begin
po := ClientToScreen(Point(Left,Top)) ;
Left := Po.X;
Top := Po.Y ;
Po := ClientToScreen(Point(Right,Bottom)) ;
Right := Po.X;
Bottom := Po.Y;
end;
ClipCursor(@a);
end;

end.

[m-khorsandi]

اگه به تاریخ آخرین پست یه نگاهی بندازی بد نیست.