菜单的选择
我希望在菜单项被选择的时候，做一些操作，该怎么做？
有几个方法：
一个是利用OwnerDraw，在DrawItem中，有一个状态：Selected可以描述菜单项是否被选中：
procedure TForm1 . Exit1DrawItem ( Sender : TObject ; ACanvas : TCanvas ;
ARect : TRect ; Selected : Boolean );
begin
if Selected then MessageBeep ( MB_OK );
end ;
另外可以利用消息：WM_MENUSELECT，