قفل کردن موس و کیبورد

[amir_ir]

سلام به همه دوستان عزیز
با دلفی 6 به چه شکل میشه موس و کیبورد یا حتی دسکتاپ رو قفل کرد و مجدداً در زمان دلخواه آزاد کرد؟
ممنون میشم راهنمایی کنید و یا اگر سورسی در اختیار دارید به اشتراک بگذارید.
ممنون

[Felony]

اگر تازه کار هستید راحت ترین کار براتون استفاده از کامپوننت dWinLock هست .

[mortezahbh]

سلام
من میخوام وقتی موقعیت موس از صفحه فرم خارج شد موس در همون موقعیت قفل بشه و بدین صورت از فرم خارج نشه
ممنون میشم با کد نویسی برام توضیح بدین

[mbshareat]

سلام
اینجا (http://delphi.about.com/od/vclusing/a/mouseadvanced.htm) در مورد ماوس بحث شده.
کدی که برای محدود کردن منطقه قابل حرکت برای ماوس گذاشته بود در FormCreate بود که نمی دونم چرا تو دلفی من کار نکرد.من توی کلیک دکمه گذاشتم کار کرد:

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