قفل کردن موس در یک محفظه؟

[ali_r_h]

چه جوری میشه کرسر موس رو تو یک محفظه قفل کرد,مثلآ موس فقط تو یک پنل بتونه حرکت کنه و از او خارج نشه؟

[حمیدرضاصادقیان]

میتونی در رویداد onmousemove ابعاد بخشی که میخواهی موس داخل اون باشه رو بدست بیاری سپس وقتی موس حرکت میکنه با x,y که موس در اون بخش هست رو تست کنی اگر بیشتر از اون بود اجازه ندی حرکت کنه.

[ali_r_h]

مرسی از راهنماییت,خوب چه جوری اجازه ندم حرکت کنه؟

[DAMAVAND]

این کد موس رو داخل محدوده یک Form قفل میکنه :


procedure TForm1.Button1Click(Sender: TObject);
var
temp : TRect ;
p : TPoint ;
begin
temp := ClientRect ;
with temp do begin
p := ClientToScreen(Point(Left,Top)) ;
Left := p.x ;
Top := p.y ;
p := ClientToScreen(Point(Right,Bottom)) ;
Right := p.x ;
Bottom := p.y ;
end ;
ClipCursor(@temp) ;
end;

موفق باشید.