gone0308 发表于 2012-11-14 10:52:17

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]
查看完整版本: DELPHI大大过来帮下菜鸟吧~~关于《delphi 程序开发范例宝典》第1.1节程序问题