Delphi编程技巧实例计算机等级考试

文章作者 100test 发表时间 2010:01:01 09:29:22
来源 100Test.Com百考试题网

　　Delphi作为一门新起的Windows编程语言，由于其集众多的优秀特性于一身，因而越来越得到广大编程人员和发烧友的青睐。以下十则技巧涉及的面比较广泛，希望能够对Delphi的爱好者有所裨益。
　　1．类似于vb．中的doevents功能。
　　大家或许发现，在Delphi中没有类似于vb．中的doevents函数，这样有的时候，我们将无法使Windows响应多个同时发生的事件。其实，在Delphi的applica??tion对象中包括类似的一个方法：ProcessMessage，你可以通过调用 Application．ProcessMessage来完成象vb．中的doevents一样的功能。
　　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： s32program etscape．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中显示带分节号的数字是相当简单的一件事，如下即可：xxxxx．caption：ΚFormatFloat（′＃′，524667500）。
　　4．在编译时获得提示。
　　在Delphi2．0中，编译时，可以让编译器告诉你一些提示，比如哪些变量声明了，却从来没有使用过。我们知道，可以通过菜单中的选项来控制是否要 Delphi这样做，但如果由于一些特殊需要，你只要在指定的代码段需要Delphi这样的提示，怎么办呢？请参考如下的程序。
　　｛＄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：pwin95forest．bmp′）；
　　Reg．WriteString（′desktop′，′TileWallpaper
　　′，′1′）；
　　Reg．Free；
　　SystemParametersInfo（SPI―SETDESKWALLPAPER，0
　　，nil，SPIF―SENDWININICHANGE）；
　　end；