حذف صدای بیپ هنگام فشردن اینتر

[smkfarhad]

با سلام
هنگام فشردن کلید اینتر و انتقال فوکاس به یک آبجکت دیگر یک صدای بیپ به گوش می رسد لطفا راهنمایی کنید چطور می توان این صدا را حذف کرد
با تشکر از همه عزیزان

[devil00x]

دوست عزیز مثلا اگه شما در onkeypress داری چک میکنی .
می تونی از کد زیر استفاده کنی:


if key=#13 then
key:=#0;


با این کار دیگه صدای ازش در نمیاد.

[pezhvakco]

حذف صدای بیپ هنگام فشردن اینتراین هم یه روشه : در بخش صدا گزاری کارهای ویندوز (Sound and Audio Devices) که در در کنترل پنل است، صدای Default beep رو هیچ (None) کن .

[devil00x]

این هم یه روشه : در بخش صدا گزاری کارهای ویندوز (Sound and Audio Devices) که در در کنترل پنل است، صدای Default beep رو هیچ (None) کن .

میشه توضیح بدی چطور از سورس برنامه بریم این عمل رو انجام بدیم؟؟؟

[MOJTABAATEFEH]

با سلام
هنگام فشردن کلید اینتر و انتقال فوکاس به یک آبجکت دیگر یک صدای بیپ به گوش می رسد لطفا راهنمایی کنید چطور می توان این صدا را حذف کرد
با تشکر از همه عزیزان

دوست عزیز با کد زیر کلید Enter رو بجای Tab معرفی کنید.
البته قبلش TabOrder تمام Edit ها به ترتیبی که می خواین شماره گذاری کنید


procedure TForm1.Edit1Press(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
Key := #0;
Perform (CM_DialogKey, VK_TAB, 0);
end;
end;



موفق باشید