摘要: 如果大家使用过《金山词霸》或《东方快车》的话,一定会对其“关于”窗口中的滚动字幕感兴趣,其实利用delphi中的timer控件可以很轻松地实现这一功能。
一、设计思路
首先在窗体上放置一个panel控件,并在panel控件中放置需要显示的文字,然后通过timer控件,在一定的间隔时间内不断改变panel控件的位置就可以实现滚动字幕的效果了。
二、实现方法
1.新建一个窗体,设置......
摘要:internet盛行的今天,网上聊天已成为一种时尚。同时,各单位已建成了自己的局域网;能否在局域网上实现聊天呢?可以,网上到处都有这种工具。当然,我们可以拥有自己版权的聊天工具。
user datagram protocol (udp)协议,是一种无连接协议。在delphi中利用这种协议,可以轻松的编写出聊天程序,以下的程序,在delphi 5+pwin98中通过。
打开delphi,新建......
Delphi中的SendKeys函数用过visual basic等编程语言的朋友们一定对其sendkeys函数非常熟悉.利用该函数可以把一个字符串发送到目标窗口(比如记事本)或控件(比如一个edit控件)中,就好像是在目标窗口或控件中输入这个字符串一样.但是,在delphi中却没有为我们提供这样的函数.其实,borland的工程师们早就提供了一个方便的方法:在delphi5.0企业版的安装盘的\info\extras\sendkeys\文件夹中,有一个sndkey32.pas文件,
只需把该文件复制到delphi的安装目录下\lib\文件夹中,在工程中引用该文件后即可使用sendkeys函数. 【程序编程相关:
3DLabel控件】 【推荐阅读:
使用stringgrid的例子】
其中两个主要的函数为: 【扩展信息:
根据进程processid得到该进程的可】
sendkeys(keystring:pchar;wait:boolean):boolean;
appactivate(windowname:pchar):boolean;
用法为:
sendkeys函数向当前拥有焦点的窗口或控件发送字符串,keysering为字符串的内容.
wait指示是否等待接收字符串的窗口或控件处理完毕后返回.一般设为false即可.
例如:sendkeys(abcdefg,false);
值得一提的是,sendkeys函数支持发送特殊字符与组合字符,例如方向键.alt.ctrl组合键.
使用时,只需用规定的前缀指明即可.+为shift,^为ctrl,%为alt.
例如:
+monday 意为发送shift+m与onday
+(monday)意为发送shift+monday
对于不可见字符(比如方向键.f1~f11.回车等),可用{}将其括起来.
例如:
%{f4}即发送alt+f4的组合送给应用程序.
更详尽的说明请参照sndkey32.pas文件中的注释.
appactivate函数的作用是将某个窗口设置为当前窗口.只需将该窗口的标题传过去即可.
若成功将某个窗口激活,则返回值为true.
例子:点击发送后,上面的edit控件的内容会被发送到下面的edit控件里面去.
程序很简单,只要两个edit控件与一个button控件.
源程序如下:
unit sendkey1;
interface
uses ...
下一页 摘要: 在delphi的数据集控件中,提供了类似关系数据库管理系统中触发器功能的事件机制----"触发器类"事件。灵活使用数据集控件的此类事件,能够实现"程序级的触发器"功能,以加强数据的完整性检验。
以delphi中表数据集为例,其相应的"触发器类"事件:
事件名称 说明
beforeinsert, afterinse......