XPMenu是一个不错的程序界面效果控件，但它也存在不少不足之处。_程序员之家(修改XPMenu让ToolButton在Down=True时正确显示 )

开发技术指南» 文章正文

引言： XPMenu是一个不错的程序界面效果控件，但它也存在不少不足之处。

摘要：delphi中用icmp探测远程主机是否存活2005-03-10 jlbnet网络通讯中经常需要确定远程主机是否存活，以决定下一部进行的操作。可以直接使用icmp协议来实现，但是要考虑许多协议细节，实现起来比较麻烦。windows 自带的icmp库里有现成的函数可以使用，只要在使用前填充相应的数据结构就可以了。以下是要使用的数据结构。这些结构msdn里有c形式的声明，这里给出的是delphi的形式......

·分布式数据库中的关键问题 delphi »显示摘要«

摘要：一、 dcom的配置(xp作服务器) 1、运行nt服务器上的dcomcnfg程序，进行dcom配置。 2、进入dcom的总体默认属性页面，将“在这台计算机上启用分布式com”打上勾，将默认身份级别改为“无”。 3、进入dcom的总体默认安全机制页面，确认默认访问权限和默认启动权限中的默认值无everyone，如果不去掉everyone，应用服务器不能......

修改XPMenu让ToolButton在Down=True时正确显示

　　xpmenu是一个不错的程序界面效果控件,但它也存在不少不足之处.我最近又对它作了一点修改.

　　原因是我在程序里有一个toolbutton,其style=tbsbutton,当down=true时,xpmenu绘制的效果效果跟down=false时一样,也就是说根本看不出它是按下的.当把style改为tbscheck后,却能显示效果,但是底色很深. 【程序编程相关:Create a simple Delp】

【推荐阅读:How can I create a t】

　　这个按钮来我是用来表示某个面板是否可以显示的,我希望它像officexp的工具按钮那样,当工具条显示时,在按钮上画个边框即可,而不是以很深的底色显示. 【扩展信息:Create a menu item i】

　　xpmenu绘制工具栏按钮是由txpmenu.toolbardrawbutton函数完成,原型为如下:

procedure txpmenu.toolbardrawbutton(sender: ttoolbar; button: ttoolbutton; state: tcustomdrawstate; var defaultdraw: boolean);　　在函数内由以下代码决定按钮是否显示边框,以及用什么颜色作底色:

if (cdshot in state) then

begin

if (cdschecked in state) or (button.down) or (cdsselected in state) then

acanvas.brush.color := fcheckedareaselectcolor

else

acanvas.brush.color := fbselectcolor;

hasborder := true;

... 下一页

·快速导出数据到excel（三）：利用excel内置功能 »显示摘要«

摘要：　　将数据导出到excel的方法有多种，速度有快慢之分，我用过三种方法，速度都比较快，下面的一种利用excel内置的功能，是三种之中最快的。其中最主要的是下面两句： xlquery := xlsheet.querytables.add(adoqexport.recordset ,xlsheet.range[a3]); xlquery.refresh;　　不过我这里稍为复杂一点，要通过某种条件完成分......

» 本期热门文章：

· 热门栏目：

» 相关精选文章

» 其它相关：