چطور می تونم از صدای بوق هنگام انتخاب کل متن داخل Memo جلوگیری کنم؟

[mbshareat]

با سلام و عرض ادب:قلب:
من متنی توی Memo دارم و می خوام همه متن رو انتخاب کنم.نمی دونم به چه علت تو نسخه دلفی من وقتی Ctrl+A رو فشار میدم، نه تنها متن انتخاب نمیشه بلکه بلندگو صدای بوق هم پخش میکنه!
من چنین کدی رو هم در رویداد KeyDown از Memo وهم بعد از تنظیم KeyPreview تو KeyDown فرم امتحان کردم متن رو انتخاب میکنه ولی باز بوق میزنه!!::متعجب:

If (Key=65) And (ssCtrl in Shift) Then
Begin
Key:=0;
Shift:=[];
Memo1.SelectAll;
End;
لطفا اگه راهی سراغ دارین من رو راهنمایی بفرمایین.:خجالت:

[mohsen24000]

procedure DisableBeep;
begin
SystemParametersInfo(SPI_SETBEEP,0,NIL,SPIF_SENDWI NINICHANGE);
end;

procedure EnableBeep;
begin
SystemParametersInfo(SPI_SETBEEP,1,NIL,SPIF_SENDWI NINICHANGE);
end;

[mbshareat]

با سلام
آقا بابت کد ممنونم . ممکنه بفرمایین کی باید صدای بوق رو دوباره فعال کنم؟

[mohsen24000]

میتونید وقتی keyup شد دوباره بوق رو فعال کنید!