Delphi编程技巧十则

Delphi作为一门新起的Windows编程语言，由于其集
众多的优秀特性于一身，因而越来越得到广大编程人员和
发烧友的青睐。以下十则技巧涉及的面比较广泛，希望能
够对Delphi的爱好者有所裨益。

　　1．类似于vb．中的doevents功能。

　　大家或许发现，在Delphi中没有类似于vb．中的doev
ents函数，这样有的时候，我们将无法使Windows响应多
个同时发生的事件。其实，在Delphi的applica?tion对象
中包括类似的一个方法：ProcessMessage，你可以通过调
用Application．ProcessMessage来完成象vb．中的doeve
nts一样的功能。

　　2．在Delphi中调用NetscapeNavigator。

　　随着Internet的火爆，有没有想过在你的Delphi程序
中启动Netscape浏览器，显示出你指定的WWW地址的主页
。下面这个程序能够完成这一功能。

　　programNetscape；

　　usesDDEMan；

　　procedureGo?toURL（sURL：string）；

　　var

　　dde：TDDEClientConv；

　　begin

　　dde：ΚTDDEClientConv．Create（nil）；

　　withddedo

　　begin

　　／／specifythelocationofnetscape．exe

　　ServiceApplication：Κ′c：ιns32ιprogramιne
tscape．exe′；

　　／／activatetheNetscapeNavigator

　　SetLink（′Netscape′，′WWW—Activate′）；

　　RequestData（′0xFFFFFFFF′）；

　　／／gotothespecifiedURL

　　SetLink（′Netscape′，′WWW—OpenURL′）；

　　RequestData（sURL＋′，，0xFFFFFFFF，0x3，，，
′）；

　　CloseLink；

　　end；

　　dde．Free；

　　end；

　　begin

　　GotoURL（′http：／／www．yahoo．com／′）；

　　end．

　　3．格式化整数输出。

　　比较大的数字在输出时会显得不易阅读，在Delphi中
显示带分节号的数字是相当简单的一件事，如下即可：xx
xxx．caption：ΚFormatFloat（′＃′，524667500）。


　　4．在编译时获得提示。

　　在Delphi2．0中，编译时，可以让编译器告诉你一些
提示，比如哪些变量声明了，却从来没有使用过。我们知
道，可以通过菜单中的选项来控制是否要Delphi这样做，
但如果由于一些特殊需要，你只要在指定的代码段需要De
lphi这样的提示，怎么办呢？请参考如下的程序。

　　｛＄HINTON｝

　　procedureTform1．Button1Click（Sender：TObject
）；

　　var

　　X：integer；

　　begin

　　end；

　　｛＄HINTOFF｝

　　5．更改Windows95的墙纸。

　　在Delphi中你可以很方便地更改墙纸，请参考以下的
程序。

　　procedureChangeIt；

　　var

　　Reg：TregIniFile；

　　begin

　　Reg：ΚTRegIniFile．Create（′ControlPanel′）
；

　　Reg．WriteString（′desktop′，′Wallpaper′，
′c：ιpwin95ιfor?est．bmp′）；

　　Reg．WriteString（′desktop′，′TileWallpaper
′，′1′）；

　　Reg．Free；

　　SystemParametersInfo（SPI—SETDESKWALLPAPER，0
，nil，SPIF—SENDWININICHANGE）；

　　end；

　　6．获得最后使用文件的日期。

　　在Win95中有一项新的功能，就是可以获得访问文件
的最后日期。著名的CleanSweapforWin95软件中就是靠这
一功能来作为判断某个文件是否被经常访问的依据之一。
在Delphi中，我们可以通过下面的程序来达到此功能。

　　functionGetFileLastAccessTime（sFileName：stri
ng）：TDate?Time；

　　var

　　ffd：TWin32FindData；

　　dft：DWord；

　　lft：TFileTime；

　　h：THandle；

　　begin

　　／／getfileinformation

　　h：ΚWindows．FindFirstFile（PChar（sFileName
），ffd）；

　　if（INVALID—HANDLE—VALUEΙΛh）then

　　begin

　　／／we′relookingforjustonefile，socloseour″f
ind″

　　Windows．FindClose（h）；

　　／／converttheFILETIMEtolocalFILETIME

　　FileTimeToLocalFileTime（ffd．ftLastAccessTime
，lft）；

　　／／convertFILETIMEtoDOStime

　　FileTimeToDosDateTime（lft，LongRec（dft）．Hi
，LongRec（dft）．Lo）；

　　／／finally，convertDOStimetoTDateTimeforusein
Delphi′snativedate／timefunctions

　　Result：ΚFileDateToDateTime（dft）；

　　end；

　　end；

　　GetFileLastAccessTime（）将会以Delphi的TdateTi
me格式返回你所指定的文件的最后访问日期。

　　7．丰富多彩的标签。

　　我们已经不满足于Delphi提供的简单的标签，能不能
在标签中有不同的字体，有不同的颜色，以此来丰富我们
的表现能力。回答是肯定的，并且用不着第三方提供的控
件，我们只要巧妙的利用Delphi自己提供的TRichEdit就
可以了。首先将TRichEdit控件的边框去除：RichEd?it1
．BorderStyle：ΚbsNone；同时设置只读属性为真：Rich
Ed?it1．ReadOnly：ΚTrue；然后，你利用write之类的
软件制作好RichText格式的文本，通过以下语句就可以显
示出来了：

　　RichEdit1．PlainText：ΚFalse；

　　RichEdit1．Lines．LoadFromFile（′c：ιtest．r
tf′）；

　　8．如何防止Win95显示严重错误。

　　不管你的程序如何反复调试，交给用户之后，总有可
能发生你意想不到的错误，如何避免Win95显示出白色的
窗口，告诉你的用户发生了难堪的意外错误呢？我们可以
这样做：

　　var

　　wOldError?Mode：Word；

　　begin

　　／／tellwin?dowstoignorecriticalerrorsandsave

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有