引言： 时常想,如果一个组件能够按自己想要的外观显示,那该是件多么COOL的事啊,这一篇就要来做一个精美外观的组件,但是,做什么好呢.Button?高手突破>有关于自己定义外观的Button,以及CheckBox等的做法,Button从CustomPanel继承,重载Paint方法来画外观.如果你...
摘要：program softinfo;
uses? forms,? windows,? dialogs,? shellapi,? inifiles,? sysutils ;
{$r *.res}? procedure install();? begin??? messagedlg(install,mtwarning,[mbok],0) ;? end;
? procedure uninstall(......
摘要：want的心得
由于资料缺乏，以下内容由want的配置文件及对比java的ant所得，不足之处请参阅want的want.xml配置文件及其他相关文件。
want的功能：
1． 对delphi的源文件的编译功能，可将编译产生的文件分发到指定路径。
仅可对以下几种文件进行分发：
<exeoutput path=" " />
<bploutput path=" "......
组件制作之四（定制外观）
时常想,如果一个组件能够按自己想要的外观显示,那该是件多么cool的事啊,这一篇就要来做一个精美外观的组件,但是,做什么好呢.button? 高手突破>有关于自己定义外观的button,以及checkbox等的做法,button从custompanel继承,重载paint方法来画外观.如果你有兴趣,可以去找来看,这里就不做button了,做一个memo如何呢.?是个不错的主意. 【程序编程相关:
DB2 Web 服务提供者的安全性】 【推荐阅读:
Portlet 对 DB2 数据的访问】 【扩展信息:
将 CMP 实体 Bean 字段映射到 】 我们先起个名字叫做tcoolmemo.以上篇已经讲了很多组件的技术,这里就只说出几个重点.其余不多说了. 首先,该memo从custommemo继承,它有这样外观:属于平面的,边框是可以设置颜色的线,对应的颜色变量为fedgecolor,另外,离边框以内的两个象素处,还有另一个框,当鼠标进入memo时,这个框会显示,当鼠标离开时,为个框消失,同样也可以设置颜色,对应变量为fentercolor. 那么鼠标进入与离开怎么判断呢,这里memo将截获两个delphi的内部消息: //下面两个获得delphi的内部消息,鼠标进入与离开时发生 procedure cmmouseenter (var message: tmessage); message cm_mouseenter; procedure cmmouseleave (var message: tmessage); message cm_mouseleave; 其实父类已经截获了这两个消息,并作了相应处理,所以tcoolmemo中的消息处理函数要 inherited;再作自己的处理.这里又用到了一个变量 mousein:boolean;//标识鼠标是否进入组件 接下来tcoolmemo还要截获两个消息: procedure wmpaint (var message: tmessage); message wm_paint; procedure wmnccalcsize (var message: twmnccalcsize); message wm_nccalcsize; 第一个很熟悉,当需要重画时,触发该消息, 第二个是当窗体需要计算位置与尺寸时触发,消息中包含了窗口客户区的大小,我们用这个的目的主要是将客户区缩小三个象素,以便画组件时不会画到客户区. procedure tcoolmemo.wmnccalcsize (var message: twmnccalcsize); begin inherited; inflaterect(message.calcsize_params^.rgrc[0], -3, -3); end; 而上面几个消息处理函数,cm_mouseenter与cm_mouseleave;将引起tcoolmemo的外观变化,wm_paint保存其外观不被擦去.所以要用到一个画组件的函数,即: drawborder; 里面用到了几个api的gdi函数.我在代码中有详细的说明,加上自己看帮助,应该是可以看懂的. 另外,相比于memo,它的扩展了这样的功能:设置边距与获得光标的位置.这两个对应的性属为margin,position.他们都是public的,不可以在对象察看器中看到. 我们一个个来说 ...
下一页 摘要：
方案->......
