📄 sysmenu.html

📁 对于学习很有帮助
💻 HTML
字号:
<HTML><HEAD><META HTTP-EQUIV='Content-Type' CONTENT='text/html; charset=gb2312'><META NAME='author' CONTENT='William Wan'><LINK REL='STYLESHEET' HREF='../tu/epcw.css' TYPE='text/css'><TITLE>电脑报电子版 -- 定制Delphi应用程序的系统菜单</TITLE></HEAD><BODY BGCOLOR='white'><A NAME='top'></A><TABLE BORDER='0' WIDTH='615' CELLSPACING='0' CELLPADDING='0' HEIGHT='6' ALIGN='Center' BGCOLOR='#CCCC99'><TR VALIGN='top'><TD WIDTH='100%'><IMG SRC='/images/dot.gif' WIDTH='615' HEIGHT='1'></TD></TR></TABLE><TABLE WIDTH='615' BORDER='0' CELLSPACING='0' CELLPADDING='0' ALIGN='Center'><TR><TD WIDTH='145' BGCOLOR='#CCCC99' 	ALIGN='Center' VALIGN='top'><A HREF='http://www.yesky.com'><IMG SRC='../tu/logo.gif' WIDTH='140' HEIGHT='60' ALT='天极网' BORDER='0'></A></TD><TD WIDTH='470' BGCOLOR='#CCCC99' HEIGHT='50'><a href="http://shop.cpcw.com"><script language="JavaScript" src="http://ad.yesky.com/js/cpcw.js"></script></a></TD></TR></TABLE><TABLE BORDER='0' WIDTH='615' CELLSPACING='0' CELLPADDING='0' HEIGHT='2' ALIGN='Center' BGCOLOR='#CCCC99'><TR><TD WIDTH='100%'><IMG SRC='/images/pixel.gif' WIDTH='1' HEIGHT='1'></TD></TR></TABLE><TABLE WIDTH='615' BORDER='0' CELLSPACING='0' CELLPADDING='0' ALIGN='Center'><TR ALIGN='Center' BGCOLOR='#CCCC99'><TD><TABLE WIDTH='100%' BORDER='0' CELLSPACING='1' CELLPADDING='1'><TR BGCOLOR='#CCCC99' ALIGN='Center'><TD BGCOLOR='#999966'><A HREF='index.html'><FONT CLASS='title'>目录</FONT></A></TD><TD BGCOLOR='#999966'><A HREF='wrapup.html'><FONT CLASS='title'>综合报道</FONT></A></TD><TD BGCOLOR='#FFCC66'><FONT CLASS='title'><FONT  COLOR='#CC0000'>软件世界</FONT></FONT></TD><TD BGCOLOR='#999966'><A HREF='hardware.html'><FONT CLASS='title'>硬件周刊</FONT></A></TD><TD BGCOLOR='#999966'><A HREF='internet.html'><FONT CLASS='title'>大众网络</FONT></A></TD><TD BGCOLOR='#999966'><A HREF='oa.html'><FONT CLASS='title'>ＯＡ专刊</FONT></A></TD><TD BGCOLOR='#999966'><A HREF='game.html'><FONT CLASS='title'>游戏广场</FONT></A></TD><TD BGCOLOR='#999966'><A HREF='maket.html'><FONT CLASS='title'>评测与市场</FONT></A></TD></TR></TABLE></TD></TR></TABLE><TABLE BORDER='0' WIDTH='615' CELLSPACING='0' CELLPADDING='0' HEIGHT='3' ALIGN='Center' BGCOLOR='#CCCC99'><TR VALIGN='bottom'><TD WIDTH='100%'><IMG SRC='/images/dot.gif' WIDTH='615' HEIGHT='1'></TD></TR></TABLE><TABLE WIDTH='615' BORDER='0' CELLSPACING='0' CELLPADDING='2' ALIGN='Center'><TR><TD WIDTH='615' COLSPAN='2'><font color="#FF6666">当前位置：</font><A HREF='http://www.cpcw.com'>《电脑报》电子版</A> &gt; <A HREF='http://www.cpcw.com/all-99.html'>1999 年</A> &gt; <A HREF='index.html'>20 期</A> &gt;  <A HREF='software.html'>软件世界</A> &gt; 定制Delphi应用程序的系统菜单</TD></TR></TABLE><TABLE WIDTH='615' BORDER='0' CELLSPACING='0' CELLPADDING='0' ALIGN='center'><TR ALIGN='center' VALIGN='bottom'><TD HEIGHT='6'><IMG SRC='/images/dot.gif' WIDTH='615' HEIGHT='1'></TD></TR></TABLE><BR><TABLE WIDTH='615' BORDER='0' CELLSPACING='0' CELLPADDING='2' BGCOLOR='#FFCC66' ALIGN='center'><TR><TD><SPAN CLASS='title'>《 定制Delphi应用程序的系统菜单 》</SPAN></TD></TR></TABLE><BR><TABLE WIDTH='615' BORDER='0' CELLSPACING='0' CELLPADDING='2' ALIGN='center'><TR><TD>　　我们使用Delphi编制应用程序，编译运行后，在主界面的左上角出现一小图标，用鼠标单击此图标，会出现一下拉式菜单，这就是系统菜单。系统菜单包括[还原]、[移动]、[大小]、[最小化]、[最大化]和[关闭]六项。系统菜单是Delphi自动给每个应用程序加上的，不用特意设计。但在我们的应用程序中，有时为达到一定目的，不希望在主界面上有主菜单存在，这时就可以在系统菜单上做点文章，将自己的菜单选项加入到系统菜单中，以实现主界面的整洁。<br>　　下面是具体的实现方法。例如，我们要将[新建]和[保存]两选项加入到系统菜单中。先将一PopupMenu组件加入表单，双击此组件进入PopupMenu设计器，设置[新建]和[保存]菜单项，后单击表单空白处，再选中Objector Inspector的Event选项卡，双击OnCreate事件，进入单元窗口，编写如下代码：<br>　　Procedure Tform1,FormCreate(Sender:TObject);<br>　　Begin<br>　　With PopupMenul do<br>　　For I:=1 do<br>　　AppendMenu(getsystemmenu(self,handle,false),mf－popup,items[I],handle,pchar(items[I],caption));<br>　　在变量中添加：Var I:Integer；<br>　　编译运行后就会看到系统菜单中多了[新建]和[保存]两项。<br>　　下面我们来完成系统菜单项的响应。在Tform1的类定义中的Public部分插入如下代码：<br>　　Procedure WMSysCommand(var Msg:Tmessage)；<br>　　message WM－SysCommand;<br>　　其中WMSysCommand为用户定义的响应函数。<br>　　Procedure WMSysCommand(var Msg:Tmessage);<br>　　Var<br>　　Item:Tmenuitem;<br>　　Begin<br>　　Inherited;<br>　　Item:=popupmenu1.Finditem(msg.wparam,fkcommand);<br>　　If not(item=nil) then<br>　　Item.click;<br>　　End<br>　　这样，系统菜单项就可以调用原有菜单项的click函数。<br><b>(河北 蔡力强)</b></TD></TR></TABLE><TABLE WIDTH='615' BORDER='0' CELLSPACING='0' CELLPADDING='2' ALIGN='center'><TR><TD><A HREF='http://pcsoft.cpcw.com/recommend/1999/20/' TARGET='_blank'>下载本期推荐软件</A></TD><TD ALIGN='right'><A HREF='#top'>页 首</A></TD></TR></TABLE><BR><TABLE WIDTH='615' BORDER='0' CELLSPACING='0' CELLPADDING='0' ALIGN='center'><TR ALIGN='center' VALIGN='bottom'><TD HEIGHT='6'><IMG SRC='/images/dot.gif' WIDTH='615' HEIGHT='1'></TD></TR></TABLE><TABLE WIDTH='615' BORDER='0' CELLSPACING='0' CELLPADDING='2' ALIGN='center'><TR ALIGN='center'><TD><IMG SRC='http://cq.cpcw.com/cgi-bin/Count.cgi?ft=2|md=8|df=cpcw.dat|dd=E|cache=F|expires=18000' WIDTH='52' HEIGHT='13' ALT='312345678'><SCRIPT LANGUAGE='JavaScript'>document.write('<a href=http://best.nease.net/cgi-bin/view/viewbasic.cgi?cpcw target=_blank><img src=\'http://best.nease.net/cgi-bin/log.cgi?user=cpcw&refer='+escape(document.referrer)+'&cur='+escape(document.URL)+'\' border=0 alt=\'网易中文排行榜\' width=15 height=15></a>');document.write('<a href=/show_stats.htm target=sxrl>');document.write('<img src=\'http://refer.gznet.com/cgi-bin/rl_refer.cgi?UID=10015847&refer='+escape(top.document.referrer)+'&cur='+escape(document.URL)+'\' width=25 height=15 border=0 alt=\'《电脑报》栏目排行榜\'>');document.write('<img src=\'http://refer.gznet.com/cgi-bin/rl_refer.cgi?UID=10015861&refer='+escape(top.document.referrer)+'&cur='+escape(document.URL)+'\' width=25 height=15 border=0 alt=\'《电脑报》栏目排行榜\'></a>');</SCRIPT><NOSCRIPT><A HREF='http://best.nease.net/cgi-bin/view/viewbasic.cgi?cpcw' TARGET='_blank'><IMG SRC='http://best.nease.net/cgi-bin/log.cgi?user=cpcw&refer=http%3A//www.cpcw.com/&cur=http%3A//www.cpcw.com/issue/1999/20/99201303.html#NoJavaScript' WIDTH='25' HEIGHT='15' BORDER='0' ALT='网易中文排行榜'></A><A HREF='/show_stats.htm target=sxrl'><IMG SRC='http://refer.gznet.com/cgi-bin/rl_refer.cgi?UID=10015847&refer=http%3A//www.cpcw.com/cur=http%3A//www.cpcw.com/issue/1999/20/99201303.html#NoJavaScript' WIDTH='25' HEIGHT='15' BORDER='0' ALT='《电脑报》栏目排行榜'><IMG SRC='http://refer.gznet.com/cgi-bin/rl_refer.cgi?UID=10015861&refer=http%3A//www.cpcw.com/&cur=http%3A//www.cpcw.com/issue/1999/20/99201303.html#NoJavaScript' WIDTH='25' HEIGHT='15' BORDER='0' ALT='《电脑报》栏目排行榜'></A></NOSCRIPT></TD><TD> <A HREF='http://www.cpcw.com'>《电脑报》</A>版权所有，<A HREF='http://www.yesky.com'>天极网</A>      <script language="JavaScript" src="../../download/yeskye.js"></script>设计制作发布</TD></TR></TABLE></BODY></HTML>
💿 文件大小 2022 K
👤 上传用户 siclj
📂 所属分类 Delphi/CppBuilder
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -