摘要：时常想,如果一个组件能够按自己想要的外观显示,那该是件多么cool的事啊,这一篇就要来做一个精美外观的组件,但是,做什么好呢.button? 高手突破>有关于自己定义外观的button,以及checkbox等的做法,button从custompanel继承,重载paint方法来画外观.如果你有兴趣,可以去找来看,这里就不做button了,做一个memo如何呢.？是个不错的主意。 我们先起个名......
摘要：´生成任意位随机数的函数´strlong是随机数字的位数，数字型function rndnum (strlong) dim temnum randomize do while len(rndnum) < strlong temnum=cstr(chr((57-48)*rnd+48)) rndnum=rndnum&temnum loopend function
......
组件制作之二（一个简单组件的制作过程） 接下来要动手来做一个组件了,我想了一个计数器组件,功能方面是比较简单的,但这不是本章的重点,这一章的重点是说明一个组件的制作全过程.在其中可以学到很多组件制作的技巧,当然这些也是我从书上学得的.好了,开始制作吧:这是一个可以计数的组件,为了简单,我以秒为单位,当开始时,他就从0开始增加,并显示出来,到3600时,它又回到0,如此循环.当然它也可以停止,暂停,继续.另外,他还有一个时间事件,即可以设定每隔多少时间来触发这个事件,这倒是一个好的功能,我们可以设半个小时触发事件,在事件处理函数中来一个声音,然后睡个觉,半个小时后,就由这个声音来提醒你起床了. 【程序编程相关:
Spring 1.1 Final Rel】 【推荐阅读:
用比较的方法认识PHP的面向对象】我们一开始不要新建组件单元,而是把它当成一个工程中的一个类来应用,这样更易于调试,于是我们新建一个工程,又新建一个空白单元用于放置这个类 【扩展信息:
JBX+WL8+Struts国际化中的一】 一,确定父类: 接下来给这个类起名叫ttimecount,那么它的父类应该是什么呢,它要能显示出来,得有一个容量来让他显示,tpanel是个不错的选择,我看了一下源码,发觉tpanel什么也没有做,只是把它的父类tcustompanel的属性显化出来（这个等一下讲）,tcustompanel把好多的属性声明为protected,为他的子类提供了选择,他的子类如果要使这些属性能在对象察看器中看到,可以在published重新声明一下,如果不想,则不用去理会他.而我们的计数器组件正好不用那么多属性,正好合适.于是我决定用tcusompanel为父类类建立如下:ttimecount=class(tcustompanel) private protected public publishedend; 二,确定成员,方法与属性与事件 fcount; 只读私有成员,保存计数值factive:boolean; /确定是否发生类的时间间隔事件finterval:tinterval; 这个可以设置时间事件触发间隔,本来用整型值会好一些,但会了学习起见,这里用了一个枚举形的,在type中声明如下:tinterval=(tenm,twentym,thirtym,fortym,fiftym,sixtym);分别表示十分钟到六十分钟.timelen,timenum:integer;这两个用在类的时间事件发生的确定上,与外界隔绝.ftimeout:tnotifyevent;时间间隔事件的方法指针,通过调度方法实现他与外部的处理函数关联. 我们要它能以秒为单位来计数,则要涉及到时间的应用,所以就有了这个最重要的成员:ftimer:ttimer;这个成员对象要在类构造函数中实例化它,并赋与他的属性值,还要在析构函数在释放它.如下: //构造函数,继承父类的构造函数,并初始化类中的成员....
下一页 摘要： 最近几天又将李维《inside vcl》书中关于 delphi 中 windows 消息机制的实现看了一遍，这是第二遍了，本来看第一遍时已经完全看懂了，但没做笔记，害得我又看了一遍，这回下定决心写一个笔记。与此同时，我在网上游荡时幸运地看到了两篇论述 delphi 消息框架的文章，某些部分分析得相当深入，非常好的 delphi 消息机制总结。这下一来又不想写笔记了，但后来一琢磨他们这些文章写得虽......
