DELPHI大大过来帮下菜鸟吧~~关于《delphi 程序开发范例宝典》第1.1节程序问题
书上的例题实现是这样的，可是运行起来时，我的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;
页:
[1]