| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 620 人关注过本帖
标题:请高手指正以下DELPHI代码
只看楼主 加入收藏
lxg2345
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2011-2-9
收藏
 问题点数:0 回复次数:1 
请高手指正以下DELPHI代码
本人也刚学习delphi7,有些基础不是很懂。还请高手不要见笑。
以下是一段在系统菜单中添加菜单项的代码。
procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
i:=getsystemmenu(handle,false);
appendmenu(i,mf_string,100,'你好(&E)');
end;
procedure tform1.sysmenu(var msg:twmmenuselect);
begin
if msg.IDItem=100 then
showmessage('哈哈')
else
inherited;
end;

可是在执行的时候出、现以下的问题:
构建
  [错误] Unit1.pas(31): Undeclared identifier: 'sysmenu'
  [错误] Unit1.pas(31): ';' expected but ')' found
  [错误] Unit1.pas(36): This form of method call only allowed in methods of derived types
  [致命错误] Project1.dpr(5): Could not compile used unit 'Unit1.pas'
菜单已添加OK,但消息构建不成功。
请高手指出问题所在,并更正。
搜索更多相关主题的帖子: false 
2011-02-09 17:23
chenhao19860
Rank: 3Rank: 3
等 级:论坛游侠
威 望:1
帖 子:86
专家分:151
注 册:2010-3-15
收藏
得分:0 
你看哈name属性改没
2011-02-28 17:25
快速回复:请高手指正以下DELPHI代码
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.030954 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved