📄 132.htm

📁 水木清华的BBS文章
💻 HTM
字号:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>CTerm非常精华下载</title>
</head>
<body bgcolor="#FFFFFF">
<table border="0" width="100%" cellspacing="0" cellpadding="0" height="577">
<tr><td width="32%" rowspan="3" height="123"><img src="DDl_back.jpg" width="300" height="129" alt="DDl_back.jpg"></td><td width="30%" background="DDl_back2.jpg" height="35"><p align="center"><a href="http://bbs.tsinghua.edu.cn"><font face="黑体"><big><big>水木清华★</big></big></font></a></td></tr>
<tr>
<td width="68%" background="DDl_back2.jpg" height="44"><big><big><font face="黑体"><p align="center">         Delphi编程                            (BM: strayli FlyingBoy)          </font></big></big></td></tr>
<tr>
<td width="68%" height="44" bgcolor="#000000"><font face="黑体"><big><big><p   align="center"></big></big><a href="http://cterm.163.net"><img src="banner.gif" width="400" height="60" alt="banner.gif"border="0"></a></font></td>
</tr>
<tr><td width="100%" colspan="2" height="454">　<p align="center">[<a href="index.htm">回到开始</a>][<a href="100.htm">上一层</a>][<a href="133.htm">下一篇</a>]
<hr><p align="left"><small>改计算机名 <br>

  <br>

改变计算机在网络中的名字，重新启动后才生效 <br>

SetComputerName('Hello World'); <br>

  <br>

                                 控制壁纸 <br>

  <br>

控制Windows 95的壁纸，以下程序使壁纸变为我们想要的位图，如果THEPCHAR为空， <br>

那么就取消壁纸，变为Win默认色彩； 但这种方法只是暂时的，在WINDOWS重新启动后 <br>

还是原来的位图，这时就需要对WIN.INI文件进行写操作，才能保存住我们改动的图片 <br>

不被替换。 <br>

var THEPCHAR:pchar; <br>

begin <br>

THEPCHAR:='e:\a.bmp'; <br>

SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, THEPCHAR, SPIF_SENDWININICHANGE) <br>

end; <br>

  <br>

                                计算字段值 <br>

  <br>

需要对某字段的所有记录求和，使用如下代码： <br>

var i:double; <br>

{$R *.DFM} <br>

procedure TForm1.Table1CalcFields(dataset: Tdataset); <br>



var <br>

Goodsgold:double; <br>

begin <br>

Goodsgold:=table1.fieldbyname('金额').asfloat; <br>

i:=i+Goodsgold; <br>

label1.caption:=formatfloat('0.00',i); <br>

end; <br>

其中的i是求得的总和，在必要时才将他复位为0，要不他总是有增无减。 <br>

  <br>

                            链接的视觉效果 <br>

  <br>

　　要有类似WIN98那样指向字体，该字体就出现下划线，鼠标指针变为一支手指，按 <br>

下后就打开浏览器或邮件编写器的功能，按下列办法做（该方法只是在前面讲的实现 <br>

超链接的方法上加入一些效果）： <br>

　　先在一个窗体中加入一个Label1，加入下列代码 <br>

procedure TForm1.Label1MouseMove(Sender: TObject;shift:Tshiftstate;x,y:integer <br>

); <br>

begin <br>

Label1.Font.Style:=[fsbold,fsunderline]; <br>

Label1.Font.Color:=clYellow; <br>

end; <br>

  <br>

  <br>

procedure TForm1.FormMouseMove(Sender: TObject;shift:Tshiftstate;x,y:integer); <br>

begin <br>

Label1.Font.Style:=[fsbold]; <br>

Label1.Font.Color :=clmaroon; <br>

end; <br>

  <br>

procedure TForm1.Label1Click(Sender: TObject); <br>

begin <br>

Shellexecute(handle,nil,pchar('mailto:guihong@163.net'),nil,nil,sw_shownormal) <br>

; <br>

end; <br>

再将Label1.Cursor设为crHandPoint，Label1的OnMouseMove事件设为 <br>

Label1MouseMove， Form1的OnMouseMove事件设为FormMouseMove，Label1的OnClick <br>

事件设为Label1Click，那么就这种效果了。 <br>

  <br>

                            替换指定串函数 <br>

  <br>

一个替换指定串的函数，从一个字符串中找出指定子串，并替换为另一子串。 <br>

function replacing(S,source,target:string):string; <br>

var site,StrLen:integer; <br>

begin <br>

{source在S中出现的位置} <br>



site:=pos(source,s); <br>

{source的长度} <br>

StrLen:=length(source); <br>

{删除source字符串} <br>

delete(s,site,StrLen); <br>

{插入target字符串到S中} <br>

insert(target,s,site); <br>

{返回新串} <br>

replacing:=s; <br>

end; <br>

  <br>

                            数据库日期显示 <br>

  <br>

　　在使用DBGRID控件时显示DATATIME时其年份是为2位的，但我们在步入2000年后需 <br>

要显示的日期是4位，如：1998、2001。在数据库中该字段只有在2000年后才会显示4 <br>

位，怎么办呢？ 下面我们就让该字段在DBGRID控件中也显示4位的日期格式： 双击 <br>

Table1控件，就会出现form1.table窗体，击右键，选Add Fields...，选择日期字段 <br>

后按ok，窗体中就出现了数据库的日期字段名，点日期的那个字段名，属性框里就出 <br>

现了该字段的信息，里面有一项DispalyFormat，在该显示格式里输入yyyy.mm.dd，那 <br>

么DBGRID控件就出现完整的日期了。 <br>

</small><hr>
<p align="center">[<a href="index.htm">回到开始</a>][<a href="100.htm">上一层</a>][<a href="133.htm">下一篇</a>]
<p align="center"><a href="http://cterm.163.net">欢迎访问Cterm主页</a></p>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -