93503.htm

在天极网上发布的各类delphi原码及技巧文档

ImageList3并为其增加一些位图，然后设置ToolBar1工具栏控件的DisableImages属
性为ImageList３，这样当工具栏中某个按钮的Enabled属性为False时该按钮将显示
ImageList3中对应的图象。</li>
</ul>
<p><fontcolor="#ffffff">&nbsp;&nbsp;&nbsp;&nbsp;</font>3.设置菜单项是否选中
<p><fontcolor="#ffffff">&nbsp;&nbsp;&nbsp;&nbsp;</font>单击Word97视图菜单中的标尺菜单项，注意其选
中标记的设置。在本例中可为视图菜单中的工具栏菜单项写一个鼠标单击事件处理句柄来
实现这种功能。程序清单附后。然后单击状态栏菜单项OnClick事件右边的下拉列表并选
定N11Click以便与工具栏菜单项共享代码。
<p><fontcolor="#ffffff">&nbsp;&nbsp;&nbsp;&nbsp;</font>4.显示飞行提示
<p><fontcolor="#ffffff">&nbsp;&nbsp;&nbsp;&nbsp;</font>从左到右分别设置工具栏每个按钮的Hint属性为
新建、打开、剪切、复制、粘贴、打印、撤消、重复，并把每个按钮的ShowHint属性设置为True。
这样程序运行过程中当鼠标停留在按钮上时会出现飞行提示。
<p><fontcolor="#ffffff">&nbsp;&nbsp;&nbsp;&nbsp;</font>5.自动调整控件大小和分隔窗口
<p><fontcolor="#ffffff">&nbsp;&nbsp;&nbsp;&nbsp;</font>在设计界面时用好控件的Align属性是非常重要
的。控件的Align属性用来决定该控件在其容器中的位置以及当容器大小发生改变时控件
是否自动调整大小。控件的Align属性可以取alNone、alTop、alBottom、alLeft、alRight、alClient
六个值之一。缺省值为alNone，表示控件保持设计时在窗体或面板中的位置和大小；若改为alTop，
则控件移至窗体顶部，宽度随窗体大小改变而改变但高度不变；若改为alClient，则控件充
满窗体的未占用客户区，窗体大小改变时也是如此。
<p><fontcolor="#ffffff">&nbsp;&nbsp;&nbsp;&nbsp;</font>Delphi4.0提供的Splitter控件可用来分隔窗
口。
<p><fontcolor="#ffffff">&nbsp;&nbsp;&nbsp;&nbsp;</font>现在向窗体中增加一个DirectoryOutline控件
并将其Align属性设置为alLeft，再向窗体中增加一个Splitter控件，最后向窗体中增加
一个RichEdit控件并将其Align属性设置为alClient。
<p><fontcolor="#ffffff">&nbsp;&nbsp;&nbsp;&nbsp;</font>运行程序你就会看到一个能自动调整控件大小并
可分隔窗口的工作界面。
<p><fontcolor="#ffffff">&nbsp;&nbsp;&nbsp;&nbsp;</font>6.设置带下拉菜单的按钮
<p><fontcolor="#ffffff">&nbsp;&nbsp;&nbsp;&nbsp;</font>Windows98的资源管理器工具栏上的前进、后退
和查看按钮右边都带有下拉菜单按钮，这种按钮用来设置快捷方式很有用处，比如退回一
步或重新打开以前打开过的文件。用Delphi4.0可以很方便地实现这种功能。
<ul>
<li>向窗体中增加一个弹出式菜单PopupMenu1、一个打开对话框OpenDialog1和一个保存
对话框SaveDialog1。<br>
<li>设置工具栏中打开按钮的Style属性为tbsDropDown，DropDownMenu属性为PopuMenu1。<br>
<li>手工编写一个单击事件处理句柄MenuItemClick，程序清单附后。<br>
<li>分别为文件菜单中的打开和保存菜单项写单击事件处理句柄，程序清单附后。<br>
<li>单击工具栏中打开按钮OnClick事件右边的下拉列表并选定N10Click以便与打开菜
单项共享代码。<br>
<li>运行程序并选定文件菜单中的保存命令将文本框中的内容保存到一个文件中。<br>
<li>清除文本框中内容RichEdit1。<br>
<li>单击打开按钮右边的下拉按钮出现一个下拉菜单，其中有一个菜单项的内容就是你刚
保存的文件名，单击该菜单项程序将文件中的内容又装入了文本框。</li>
</ul>

</td></tr></table><br><img src="/xslimages/content/buttom.gif" align="absmiddle"></img>
        相关内容
        <br><ul><a href="/33554432/34603008/34668544/93528.htm">自 动 隐 藏 的 声 象 按 钮<br><br></a><a href="/33554432/34603008/34668544/93524.htm">用DELPHI中Canvas特性开发图形软件<br><br></a><a href="/33554432/34603008/34668544/93523.htm">用DELPHI 设 计 屏 幕 保 护 程 序<br><br></a><a href="/33554432/34603008/34668544/93483.htm">无标题窗口的移动<br><br></a><a href="/33554432/34603008/34668544/93415.htm">从 实 例 看 Delphi 4 中 的 动 态<br><br></a><a href="/33554432/34603008/34668544/93411.htm">Delphi4.0系统提示信息的汉化<br><br></a></ul><br><font color="#000000"><font color="#1C82C5"><img src="/xslimages/content/buttom.gif" align="absmiddle"></img></font>
            相关链接
          </font><br><ul><a href="http://bbs.cpcw.com/forum/vb/">到程序方舟论坛，论坛主持人为你答疑！<br><br></a></ul><a href=""><font color="#FF9900"><font color="#CC0000"></font></font></a><font color="#000000"><font color="#1C82C5"><img src="/xslimages/content/buttom.gif" align="absmiddle"></img></font>
               更多的
                </font><br><table width="70%"><tr><td width="30%" valign="top" align="left"><ul><a href="/67108864/68157440/68419584/68423680/inverse1.htm">DELPHI</a><br></ul></td><td width="30%" valign="top" align="left"></td></tr></table></td></tr></table><table width="98%" border="0" cellspacing="0"><tr><td width="85%" height="19" align="center" bgcolor="#FDF0C4"><a href="mailto:[e-mail]">
      本文版权归作者和天极网共同所有，如有任何版权问题，请与我们联系。
        </a></td><td width="15%" bgcolor="#FFCC66" height="19">
          【
          <a href="/index.htm">
            回首页
          </a>
          】
        </td></tr></table><br></td><td colspan="2" valign="top" width="25%" bgcolor="#eeeeee"><table width="97%" align="center"><tr><td bgcolor="#ff9900" width="182" height="15"></td></tr></table><table width="97%" border="0" cellpadding="3" align="center"><tr><td valign="top" height="23" border="1" bgcolor="#eeeeee" cellspacing="0" bordercolor="#ff9900"><div align="center">
             火热链接
          </div></td></tr><tr bgcolor="#F5F5F5"><td width="27%" height="20" align="left"><div align="left"><a href="/33554432/36700160/116464.htm">淄博广电被罚 吉通陪绑……</a><br><a href="/33554432/36700160/116429.htm">图文：首信公司与ECnet建全球B2B采购网</a><br><a href="/33554432/36700160/116416.htm">“反色情”触及儿童网站</a><br><a href="/33554432/36700160/116409.htm">WAP，未来的未来</a><br><a href="/33554432/36700160/116406.htm">日本：5年后IT业超美国</a><br><a href="/33554432/36700160/116394.htm">美国在线和时代华纳：引判例对付审查</a><br><a href="/33554432/36700160/116367.htm">WAP收费标准再次推迟出台</a><br><a href="/33554432/36700160/116348.htm">网络经济任重道远</a><br><a href="/33554432/36700160/116319.htm">苹果：我们并未对任何人施压</a><br><a href="/33554432/36700160/116322.htm">法官的离职不会影响微软案</a><br></div></td></tr></table><br><table width="97%" border="0" cellpadding="3" align="center"><tr bgcolor="#ff9900"><td valign="top" height="20"><div align="center">
            
            天极搜索
          </div></td></tr><tr bgcolor="#F5F5F5"><form action="http://search.yesky.com/servlet/search" method="post" name="search" onsubmit="form_onsubmit(); return ValidationPassed;"><td width="27%" height="20" align="center"><div><script language="javascript">
          function form_onsubmit() {
            ValidationPassed = true ;
            if (document.search.keyword.value=="") {
               alert ("请输入搜索关键字！");
               ValidationPassed=false;
             }
               return ValidationPassed;
           }  
     </script><input name="keyword" id="keyword" class="nava" size="12"></input><input type="hidden" name="classify" value="keyword"></input><input type="hidden" name="no" value="34603008"></input><input onClick="form_onsubmit(this.form);" style="HEIGHT:22px;WIDTH:40px" type="submit" value="搜索" name="submit2"></input></div></td></form></tr></table><div align="left"><font color="#000000"><br><table width="100%" border="0" cellspacing="0" cellpadding="0"><tr align="center"><td><table width="100%" border="0" cellspacing="0" cellpadding="0"><tr><td width="10" height="2"><img src="/xslimages/school/pathboy-ruanjian.gif" width="32" height="32"></img></td><td width="186" height="2" valign="top"><table width="100%" border="1" cellspacing="0" cellpadding="0" bordercolordark="#FFFFFF" bordercolorlight="#000000" bgcolor="#6898D0"><tr align="center"><td height="26"><font color="#FFFFFF">
                                          MyDown下载
                                        </font><font class="nava" color="#FFFFFF"></font></td></tr></table></td></tr></table></td></tr></table><table border="0" cellpadding="0" cellspacing="1" width="100%" align="center"><tbody><tr align="left"><td bgcolor="#ffffff"><script type="text/javascript" language="javascript" src="http://www.mydown.com/mydown.js"></script><br></td></tr></tbody></table><table width="100%" align="center"><tr><td align="center"><tr><td align="center"><a href="http://www.hoyodo.com"><img border="0" src="http://www.hoyodo.com/home/images/banner/botton.gif" width="120" height="60"></img></a><br><br><a href="http://e.yesky.com"><img border="0" src="http://e.yesky.com/images/logo_e2.gif" width="120" height="60" alt="天极E时代"></img></a></td></tr></td></tr></table></font></div><br></td></tr></table><table width="97%" border="0" cellspacing="0" cellpadding="0" align="center"><tr><td><div align="center"><a href="/hdong/gao.htm" target="_blank">欢迎投稿</a>|
            <a href="/bill/index.html" target="_blank">市场联系</a>|
            <a href="/serve/dnbjs.htm" target="_blank">关于我们</a>|
            <a href="/maillist/index.html" target="_blank">邮件列表</a>|
            <a href="/hdong/zaopin.html" target="_blank">加入我们</a>|
            <a href="/hdong/xinsi.html" target="_blank">隐私条款</a></div></td></tr></table><hr height="1" size="1" width="760"></hr><td width="57%" valign="top" rowspan="1" align="center"><div align="center"><script language="JavaScript" src="http://ad.cpcw.com/js/school.js"></script></div></td><table width="97%" border="0" cellspacing="0" cellpadding="0" align="center"><tr></tr><tr></tr><tr></tr></table><table width="97%" border="0" cellspacing="0" cellpadding="0" align="center"><tr><td><div align="center"><span class="nava"><font color="#000000" face="Arial, Helvetica, sans-serif">
              Copyright (C) 1999 Yesky.com, All Rights Reserved
            </font><font color="#000000"><br>
              版权所有　 
              <font face="Arial, Helvetica, sans-serif">
              Yesky
              </font></font></span></div></td></tr></table><script>document.write("<a href=http://best.netease.com/cgi-bin/view/viewbasic.cgi?program target=_blank><img style=visibility:hidden src=http://best.netease.com/cgi-bin/log.cgi?user=program&refer="+escape(document.referrer)+"&cur="+escape(document.URL)+" border=0 alt=网易中文排行榜 ></a>");</script><script> document.write("<a href=http://best.netease.com/cgi-bin/view/viewbasic.cgi?rkai target=_blank> <img style=visibility:hidden src=http://best.netease.com/cgi-bin/log.cgi?user=rkai&refer="+escape(document.referrer)+"&cur="+escape(document.URL)+" border=0 alt=网易中文排行榜 width=15 height=15></a>");</script><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" style="visibility:hidden"/></A><br><iframe frameborder="0" scrolling="no" src="http://count.yesky.com/servlet/count?articleno=93503" height="0" width="100%"></iframe></body>
</html>