DELPHI大大过来帮下菜鸟吧~~关于《delphi 程序开发范例宝典》第1.1节程序问题

gone0308

书上的例题实现是这样的，可是运行起来时，我的ShowMessage()弹不出来~~请教大大们！！！

procedure TForm1.FormCreate(Sender: TObject);
var
  i : Integer;
begin
  i := GetSystemMenu(handle,false);
  AppendMenu(i,MF_SEPARATOR,0,nil);
  AppendMenu(i,MF_STRING,100,'我的菜单(&E)');
end;

procedure TForm1.sysmenu(var Msg: TWMMenuSelect);
begin
  if Msg.IDItem = 100 then
  ShowMessage('您选择了自己添加的菜单！')
  else
  inherited;
end;