PDA

View Full Version : چطوری صدای beep enter را قطع کنم در برنامه دلفی



محاسبان
سه شنبه 09 مرداد 1386, 17:41 عصر
سلام توی برنامه ای که می نویسم می خوام از enter به جای tab استفاده کنم ولی نمی خواهم صدایی از beep بلندگوی کیس شنیده بشه لطفا اگر کسی می دونه راهنمایی ام کند بسیار ممنونم. . . .

Batman
سه شنبه 09 مرداد 1386, 18:44 عصر
توی خاصیت onkeypress مربوط به edit این کد رو وارد کن
if key=#13 then
key:=#0;
موفق باشید

mzjahromi
سه شنبه 09 مرداد 1386, 19:18 عصر
البته توی OnKeyPress فرم
اونوقت مجبور نیستی روی همه کامپوننتها این کد رو بذاری
ضمن اینکه باید KeyPreview رو هم True کنی

Touska
چهارشنبه 10 مرداد 1386, 16:14 عصر
اگر می خواهید با زدن Enter کار Tab شبیه سازی شود.

یک راه حل راحتر که این کامپوننت به صورت Automatic این کار رو بدون هیچ کد نویسی انجام می دهد.

البته کپی برداری شده از JVC بوده که یک تکه هم بهش اضافه شده که در DbLookupCombobox و

Buttom ها بهینه شده.

موفق باشید :)

champion
پنج شنبه 11 مرداد 1386, 01:45 صبح
این هم یک راه دیگه:
در رویداد OnkeyPress
این کد رو بنویس :
if key = #13 then
begin
key :=# 0 ;
selectnext(Activecontrol,true,true);end
البته از طریق یک Api هم میتونی این کار رو انجام بدی که یک خط هم بیشتر نمیشه

Arman_1367
پنج شنبه 11 مرداد 1386, 02:17 صبح
این هم یک راه دیگه:
در رویداد OnkeyPress
این کد رو بنویس :
if key = #13 then
begin
key :=# 0 ;
selectnext(Activecontrol,true,true);end
البته از طریق یک Api هم میتونی این کار رو انجام بدی که یک خط هم بیشتر نمیشه

آقا قبل از جواب دادن لطفاً مطالب قبلی را مطالعه کنید جناب Batman همین را نوشته بودند
و اما در مورد SelectNext هم تنها کاری که کردی اینه که فوکس را جابه جا کردی برای این کار روشهای بهینه تر و بهتری وجود دارد.