摘要: 在delphi的数据集控件中,提供了类似关系数据库管理系统中触发器功能的事件机制----"触发器类"事件。灵活使用数据集控件的此类事件,能够实现"程序级的触发器"功能,以加强数据的完整性检验。
以delphi中表数据集为例,其相应的"触发器类"事件:
事件名称 说明
beforeinsert, afterinse......
摘要:假如你需要存取win95的系统图象列表,这里给出具体方法。第一个函数将系统图象列表的索引保存到一个特殊类型的文件中:
function getfileicoindex(filename:string):integer;
var
ext: string;
shfileinfo: tshfileinfo;
begin
ext := filename;
shgetfileinfo(pcha......
用Delphi编写局域网中的聊天程序internet盛行的今天,网上聊天已成为一种时尚.同时,各单位已建成了自己的局域网;能否在局域网上实现聊天呢?可以,网上到处都有这种工具.当然,我们可以拥有自己版权的聊天工具.
user datagram protocol (udp)协议,是一种无连接协议.在delphi中利用这种协议,可以轻松的编写出聊天程序,以下的程序,在delphi 5+pwin98中通过. 【程序编程相关:
随心所欲地在memo或richedit里】 【推荐阅读:
得到已安装的应用程序列表】
打开delphi,新建application,放置以下几个控件:panel1.panel2,其属性如下: 【扩展信息:
DELPHI编程实现3DS的动画播放】
form1.caption:=聊天工具
panel1.align:=albottom
panel2.align:=alclient
然后,放置以下控件:edit1,listbox1,memo1,button1,button2,bitbtn1, nmudp1其主要控件的属性如下:
nmudp1.localport:=8888(可自定义)
nmudp1.remoteport:=8888(与localport相同)
源程序如下:
unit main;
interface
uses
windows, messages, sysutils, classes, graphics, controls, forms, dialogs,
stdctrls, buttons, extctrls, nmudp, menus, comctrls,winsock; file://增加winsock
type
tform1 = class(tform)
nmudp1: tnmudp;
panel1: tpanel;
panel2: tpanel;
label1: tlabel;
edit1: tedit;
bitbtn1: tbitbtn;
memo1: tmemo;
panel3: tpanel;
panel4: tpanel;
listbox1: tlistbox;
button1: tbutton;
button2: tbutton;
procedure formshow(sender: tobject);
procedure bitbtn1click(sender: tobject);
procedure nmudp1datareceived(sender: tcomponent; numberbytes: integer; ...
下一页 摘要:吴淑华
为了更有效地利用显示器的空间,多数程序员都有过这样的经验,即通过windows任务栏属性对话框,在“任务栏选项”页中将任务栏设置为“自动隐藏”,并且为了在需要任务栏时操作方便,选择任务栏“总在最前”。完成上述设置后,当程序员编辑文档或编写代码时,任务栏会自动隐藏,增加了显示器的可利用空间;而当程序员需要操作任务栏时,只需将鼠标移动到任务栏所在位置的显示器边缘上,这时任务栏就会自动出现。但......