رفع بوق زدن هنگام فشار کلید Alt

[mbshareat]

سلام
من در برنامه برای ماکروی متنی از Alt+کارکتر استفاده می کنم.تا حالا پنجره ام بی لبه بود.مشکلی نداشتم.
حالا پنجره عنوان داره.وقتی میخوام ماکروی متنی رو با فشار Alt اعمال کنم بوق می زنه.
چطور میتونم این بوق رو بردارم؟
میخواستم این کد رو در FormKeyDown بریزم.بی فایده بود:

If ssAlt in Shift then

  keybd_event (VK_Menu, 0, KEYEVENTF_KEYUP, KEYEVENTF_EXTENDEDKEY );//Alt Up

[mbshareat]

فکر نمی کردم راحت جواب رو توی اینترنت به دست بیارم:

    procedure WMMenuChar(var MessageRec: TWMMenuChar); message WM_MENUCHAR;



..

procedure TFileBrowserForm.WMMenuChar(var MessageRec: TWMMenuChar)

;

begin

  inherited;

  MessageRec.Result := MakeLong(0, 1);

end;