Delphi 7編程實(shí)例與技巧集粹

第1章 Object Pascal 1
實(shí)例1 如何去掉字符串中的空格 2
實(shí)例2 如何查找一段文字中的漢字?jǐn)?shù)和
字母數(shù) 3
實(shí)例3 如何刪除目錄 5
實(shí)例4 如何更改目錄的名稱 5
實(shí)例5 如何查看文件的長(zhǎng)度 5
實(shí)例6 如何將二進(jìn)制數(shù)據(jù)添加到注冊(cè)表 6
實(shí)例7 如何按照一定的規(guī)則分割字符串 7
實(shí)例8 如何將字符串改為首字大寫 8
實(shí)例9 替換字符串中的內(nèi)容 9
實(shí)例10 如何直接關(guān)閉子窗體 10
實(shí)例11 如何動(dòng)態(tài)創(chuàng)建按鈕 10
實(shí)例12 使用Tab鍵代替回車鍵 12
實(shí)例13 使用動(dòng)態(tài)光標(biāo) 13
實(shí)例14 查找文件 14
實(shí)例15 如何創(chuàng)建深層目錄 16
實(shí)例16 如何返回多個(gè)由重復(fù)字符組成的
字符串 16
實(shí)例17 如何響應(yīng)組合鍵 17
實(shí)例18 如何修改系統(tǒng)時(shí)間 18
實(shí)例19 使用API創(chuàng)建窗體和控件 19
實(shí)例20 如何將長(zhǎng)文件名轉(zhuǎn)為短文件名 22
實(shí)例21 如何計(jì)算x的y次方 23
第2章 界面設(shè)計(jì) 24
實(shí)例22 如何實(shí)現(xiàn)顏色漸變窗體 25
實(shí)例23 如何實(shí)現(xiàn)隨機(jī)背景 26
實(shí)例24 如何將指定圖片作為窗體背景 27
實(shí)例25 如何制作傾斜文字 28
實(shí)例26 如何實(shí)現(xiàn)文字顏色漸變效果 30
實(shí)例27 如何制作圖片的透明背景 32
實(shí)例28 如何實(shí)現(xiàn)顏色漸變的進(jìn)度條 34
實(shí)例29 如何制作透明窗體 35
實(shí)例30 如何任意拖動(dòng)窗體 36
實(shí)例31 如何制作不規(guī)則窗體 37
實(shí)例32 如何滾動(dòng)標(biāo)題欄文字 40
實(shí)例33 如何使程序不在任務(wù)欄顯示 41
實(shí)例34 如何使窗體永遠(yuǎn)最小化 41
實(shí)例35 如何查閱可視窗口的標(biāo)題 42
實(shí)例36 設(shè)定單選項(xiàng)的3種狀態(tài) 43
實(shí)例37 如何實(shí)現(xiàn)動(dòng)態(tài)提示效果 45
實(shí)例38 如何動(dòng)態(tài)生成菜單 46
實(shí)例39 如何制作位圖菜單 49
實(shí)例40 如何制作屏幕保護(hù)程序 52
第3章 界面操作 55
實(shí)例41 如何制作不可移動(dòng)窗口 56
實(shí)例42 如何在程序中設(shè)置窗口的狀態(tài) 58
實(shí)例43 如何給窗體邊框加顏色 58
實(shí)例44 如何控制窗體最大化時(shí)的大小 60
實(shí)例45 如何制作隨窗體而改變的控件 61
實(shí)例46 如何打開指定的目錄 62
實(shí)例47 如何使用代碼控制Memo控件的
滾動(dòng) 62
實(shí)例48 如何制作調(diào)色板程序 63
實(shí)例49 如何實(shí)現(xiàn)分割窗體 64
實(shí)例50 如何制作顏色下拉框 65
實(shí)例51 如何制作動(dòng)畫按鈕 68
實(shí)例52 如何使窗體始終保持在最前 69
實(shí)例53 如何制作文件瀏覽器 70
實(shí)例54 如何智能查找列表框中的內(nèi)容 71
實(shí)例55 如何在RichEdit控件中顯示圖像 74
實(shí)例56 如何制作標(biāo)題欄按鈕 74
實(shí)例57 如何拖放列表框中被選中的對(duì)象 77
實(shí)例58 如何創(chuàng)建多文檔窗體 79
實(shí)例59 如何使按鈕中的文字豎著顯示 81
實(shí)例60 如何取得系統(tǒng)的輸入法 82
實(shí)例61 如何控制MDI子窗體最大化時(shí)的
大小 83
實(shí)例62 如何實(shí)現(xiàn)透明窗體 85
實(shí)例63 如何按照文字形狀制作窗體 91
實(shí)例64 特殊形狀的窗體 92
實(shí)例65 如何隱藏窗體 94
實(shí)例66 如何實(shí)現(xiàn)爆炸窗體的效果 95
第4章 初級(jí)控件 99
實(shí)例67 如何隱藏Memo控件中的光標(biāo) 100
實(shí)例68 如何使用MessageBox函數(shù) 101
實(shí)例69 如何使用MessageDlg函數(shù) 102
實(shí)例70 如何使用InputBox函數(shù) 102
實(shí)例71 如何設(shè)置字體 102
實(shí)例72 如何實(shí)現(xiàn)文字查找功能 103
實(shí)例73 如何調(diào)用打開文件對(duì)話框 104
實(shí)例74 如何調(diào)用顏色設(shè)置對(duì)話框 105
實(shí)例75 如何制作橢圓按鈕 105
實(shí)例76 如何刪除TreeView控件中的列
選項(xiàng) 107
實(shí)例77 如何實(shí)現(xiàn)文件夾的選定 107
實(shí)例78 如何響應(yīng)雙擊標(biāo)題欄的事件 108
實(shí)例79 如何得到資源管理器指定文件的
路徑 109
實(shí)例80 如何得到Memo控件中的字符
總數(shù) 110
實(shí)例81 如何在按鈕中顯示兩行文字 111
實(shí)例82 如何取得按鍵的時(shí)間 111
實(shí)例83 如何向TreeView控件中添加子
項(xiàng)目 112
實(shí)例84 如何把PopupMenu的觸發(fā)事件
改為左鍵觸發(fā) 113
實(shí)例85 如何將一個(gè)ListBox中的項(xiàng)目移動(dòng)
到另一個(gè)中 114
實(shí)例86 如何同時(shí)控制多個(gè)控件 114
實(shí)例87 如何使原有的右鍵功能失效 115
實(shí)例88 如何取消Memo控件中的默認(rèn)
菜單 115
實(shí)例89 如何實(shí)現(xiàn)特效菜單 116
實(shí)例90 如何截獲窗體的關(guān)閉信息 117
實(shí)例91 如何設(shè)置Edit控件只輸入數(shù)字和
小數(shù)點(diǎn) 118
實(shí)例92 如何實(shí)現(xiàn)圓形進(jìn)程條 119
實(shí)例93 如何顯示ComboBox中的某一項(xiàng) 120
第5章 高級(jí)控件 121
實(shí)例94 如何對(duì)圖片進(jìn)行復(fù)制粘貼操作 122
實(shí)例95 如何使用PaintBox控件 124
實(shí)例96 如何改變RichEdit控件中文本的
樣式 126
實(shí)例97 如何使用StringGrid控件 127
實(shí)例98 如何向狀態(tài)條中添加圖像 130
實(shí)例99 如何制作小日歷 133
實(shí)例100 如何快速清除TreeView控件中
的項(xiàng)目 138
實(shí)例101 如何取得窗體的按鍵 138
實(shí)例102 如何使用ImeMode屬性 138
實(shí)例103 如何實(shí)現(xiàn)Word工具欄的效果 139
實(shí)例104 當(dāng)鼠標(biāo)按下時(shí)，如何改變光標(biāo)
形狀 140
實(shí)例105 如何使多個(gè)按鈕都響應(yīng)同一個(gè)
事件響應(yīng)函數(shù) 140
實(shí)例106 如何刪除ComboBox中的item 140
實(shí)例107 如何刪除已安裝的控件 141
實(shí)例108 如何在主窗體的OnCreate事件
中顯示其他窗體 142
實(shí)例109 如何得到FileListBox中選中的
文件名 143
實(shí)例110 如何在StringGrid控件中實(shí)現(xiàn)
文字換行 143
實(shí)例111 如何同時(shí)打開多個(gè)文件 143
實(shí)例112 如何使用方向鍵對(duì)文字進(jìn)行
選擇 145
第6章 圖形圖像 146
實(shí)例113 如何拖動(dòng)控件 148
實(shí)例114 如何放大一張圖片 149
實(shí)例115 瀏覽大圖片 151
實(shí)例116 如何抓取屏幕 154
實(shí)例117 如何自己制作光標(biāo) 156
實(shí)例118 如何持續(xù)響應(yīng)鼠標(biāo)的單擊 159
實(shí)例119 如何實(shí)現(xiàn)控件的陰影效果 162
實(shí)例120 如何將一張圖片轉(zhuǎn)為灰度 163
實(shí)例121 如何實(shí)現(xiàn)圖片的拉伸效果 164
實(shí)例122 如何繪制正弦曲線 165
實(shí)例123 如何實(shí)現(xiàn)百葉窗效果 166
實(shí)例124 如何顛倒圖片 167
第7章 多媒體應(yīng)用 169
實(shí)例125 如何檢測(cè)聲卡是否存在 171
實(shí)例126 如何制作視頻播放器 171
實(shí)例127 CD播放器 174
實(shí)例128 如何繪制三維圖形 176
實(shí)例129 如何播放RM文件 180
實(shí)例130 如何播放Flash動(dòng)畫 182
實(shí)例131 如何彈出和關(guān)閉光驅(qū) 183
實(shí)例132 如何顯示聲音屬性設(shè)置窗口 184
實(shí)例133 如何禁止光驅(qū)的自動(dòng)播放 184
實(shí)例134 如何判斷光驅(qū)中是否有CD 185
實(shí)例135 如何全屏播放電影 187
第8章 資源文件應(yīng)用 189
實(shí)例136 如何在Delphi中使用定制的
光標(biāo) 190
實(shí)例137 如何修改程序的圖標(biāo) 191
實(shí)例138 如何將.rc文件轉(zhuǎn)換為.res文件 191
實(shí)例139 如何將外部文件添加到資源
文件中 191
實(shí)例140 如何在按鈕被單擊時(shí)發(fā)出聲音 192
實(shí)例141 如何動(dòng)態(tài)生成數(shù)字按鈕 192
實(shí)例142 如何讀出資源文件中的可執(zhí)行
文件 193
第9章 按鍵和鼠標(biāo) 199
實(shí)例143 如何檢測(cè)Shift、Alt和Ctrl鍵
是否被按下 200
實(shí)例144 如何更改光標(biāo)的閃爍速度 201
實(shí)例145 如何模擬按鍵 203
實(shí)例146 如何屏蔽Win95/98的功能鍵 203
實(shí)例147 如何記錄屏幕操作 204
實(shí)例148 如何使Panel控件接收按鍵 208
實(shí)例149 如何在按下鍵盤時(shí)彈出快捷
菜單 209
實(shí)例150 如何使用方向鍵在控件中間
切換 210
實(shí)例151 如何使用方向鍵代替Tab鍵 211
實(shí)例152 如何截獲Tab按鍵 212
實(shí)例153 如何按下Esc鍵退出程序 212
實(shí)例154 如何在系統(tǒng)中使用組合鍵啟動(dòng)
記事本 213
實(shí)例155 如何在一段時(shí)間后隱藏鼠標(biāo) 215
實(shí)例156 如何在屏幕上繪制圖形 216
實(shí)例157 如何限制鼠標(biāo)移動(dòng)范圍 220
第10章 文件處理 222
實(shí)例158 如何取得文件的修改日期 223
實(shí)例159 如何新建一個(gè)文本文件并向
其中添加內(nèi)容 224
實(shí)例160 如何取得系統(tǒng)目錄 225
實(shí)例161 如何得到當(dāng)前文件所在的目錄 226
實(shí)例162 如何查看文件是否存在 226
實(shí)例163 如何刷新文件緩沖區(qū)到硬盤 226
實(shí)例164 如何使用流文件讀取數(shù)據(jù) 227
實(shí)例165 如何創(chuàng)建臨時(shí)文件 228
實(shí)例166 如何獲得同相應(yīng)擴(kuò)展文件名
關(guān)聯(lián)的應(yīng)用程序 228
實(shí)例167 如何修改文件的創(chuàng)建時(shí)間和
修改時(shí)間 230
實(shí)例168 如何讀取本文件的信息 231
實(shí)例169 如何獲得操作系統(tǒng)的序列號(hào) 232
實(shí)例170 如何獲取驅(qū)動(dòng)器容量 233
實(shí)例171 如何查看驅(qū)動(dòng)器類型 233
實(shí)例172 如何獲取磁盤目錄 235
實(shí)例173 如何獲取文件屬性 237
實(shí)例174 如何將文件刪除到回收站中 238
實(shí)例175 如何清空回收站 240
實(shí)例176 如何啟動(dòng)控制面板中的程序 241
實(shí)例177 如何創(chuàng)建和刪除文件夾 244
實(shí)例178 如何讀寫Ini文件 247
實(shí)例179 如何更改文件的擴(kuò)展名 251
第11章 打印 253
實(shí)例180 如何獲得打印機(jī)的驅(qū)動(dòng)和端口
信息 254
實(shí)例181 如何得到打印的頁邊距 256
實(shí)例182 如何打印位圖 257
實(shí)例183 如何打印RTF文件 258
實(shí)例184 如何改變紙張的打印大小 258
實(shí)例185 如何設(shè)置打印機(jī)為默認(rèn)打印機(jī) 260
實(shí)例186 如何打印Memo控件中的內(nèi)容 261
實(shí)例187 如何設(shè)置打印方向 262
實(shí)例188 如何打印窗體 263
實(shí)例189 如何以制定大小打印圖像 264
第12章 系統(tǒng)控制 266
實(shí)例190 如何制作托盤程序 267
實(shí)例191 如何隱藏任務(wù)欄 272
實(shí)例192 如何制作始終在最前面的窗口 273
實(shí)例193 如何枚舉系統(tǒng)正在運(yùn)行的程序 274
實(shí)例194 如何查看IE瀏覽器是否運(yùn)行 275
實(shí)例195 如何調(diào)用Windows程序 276
實(shí)例196 如何禁止運(yùn)行程序的多個(gè)實(shí)例 279
實(shí)例197 如何修改系統(tǒng)菜單 280
實(shí)例198 如何禁止窗體右上角的按鈕 284
實(shí)例199 如何制作多線程應(yīng)用程序 285
實(shí)例200 如何利用內(nèi)存映射實(shí)現(xiàn)數(shù)據(jù)
交換 289
實(shí)例201 如何取得下拉條的信息 292
實(shí)例202 如何實(shí)現(xiàn)程序間傳遞數(shù)據(jù) 293
實(shí)例203 如何為L(zhǎng)istBox控件添加水平
滾動(dòng)條 295
實(shí)例204 如何通過按鍵控制Memo控件的
滾動(dòng) 295
實(shí)例205 如何得到密碼編輯框中的密碼 296
實(shí)例206 如何修改顯示器分辨率 297
實(shí)例207 如何關(guān)閉外部程序 298
實(shí)例208 如何使用剪貼板 298
實(shí)例209 如何隱藏程序 299
實(shí)例210 如何使電腦發(fā)出“滴”的一聲 300
實(shí)例211 如何修改計(jì)算機(jī)在網(wǎng)絡(luò)中的名稱 300
實(shí)例212 如何取得除任務(wù)欄以外的桌面
大小 301
實(shí)例213 如何更改桌面 301
實(shí)例214 如何控制鼠標(biāo)移動(dòng) 305
第13章 高級(jí)應(yīng)用 308
實(shí)例215 如何使窗體關(guān)閉后執(zhí)行另外一個(gè)
程序 309
實(shí)例216 如何使用PageDown鍵實(shí)現(xiàn)
窗體的滾動(dòng) 309
實(shí)例217 如何啟動(dòng)屏幕保護(hù)程序 309
實(shí)例218 如何取得系統(tǒng)顏色 310
實(shí)例219 如何隱藏桌面的圖標(biāo) 311
實(shí)例220 如何轉(zhuǎn)讓程序的控制權(quán) 312
實(shí)例221 如何為程序建立注冊(cè)機(jī)制 312
實(shí)例222 如何向IE的工具欄中添加按鈕 314
實(shí)例223 如何截獲OnClick消息 315
實(shí)例224 如何取得操作系統(tǒng)的版本信息 316
實(shí)例225 如何獲得內(nèi)存的使用情況 317
實(shí)例226 如何檢查驅(qū)動(dòng)器是否準(zhǔn)備好 318
實(shí)例227 如何取得文件的大小 318
實(shí)例228 如何向桌面添加快捷方式 319
實(shí)例229 如何生成豎直幫助 320
實(shí)例230 如何控制開始菜單 321
實(shí)例231 如何打開Chm文件 322
實(shí)例232 如何取得按鈕中OnClick事件的
執(zhí)行時(shí)間 323
實(shí)例233 如何設(shè)定菜單的快捷鍵 324
實(shí)例234 如何拖拽工具欄 325
實(shí)例235 如何取得漢字的第一個(gè)拼音
字母 326
實(shí)例236 如何設(shè)定Memo控件的邊框 328
實(shí)例237 如何復(fù)制文件 329
實(shí)例238 如何取得所有的光驅(qū)盤符 329
實(shí)例239 如何將網(wǎng)址添加到收藏夾中 330
實(shí)例240 如何通過一幅位圖得到一個(gè)圖標(biāo)
文件 331
實(shí)例241 如何隱藏窗體的標(biāo)題欄 333
實(shí)例242 如何將數(shù)字轉(zhuǎn)為大寫人民幣形式 334
實(shí)例243 如何制作系統(tǒng)托盤控件 335
實(shí)例244 如何控制Power鍵 344
實(shí)例245 如何注冊(cè)全局熱鍵 346
實(shí)例246 如何知道用戶點(diǎn)擊了窗口的最小化
按鈕 347
實(shí)例247 如何重啟計(jì)算機(jī) 348
實(shí)例248 如何使其他應(yīng)用程序作為當(dāng)前
窗口 348
實(shí)例249 如何獲得窗口最大化時(shí)的大小 349
第14章 圖表與報(bào)表 350
實(shí)例250 如何將數(shù)據(jù)庫中的數(shù)據(jù)以圖表
方式顯示出來 351
實(shí)例251 如何在QuickReport控件中繪制
直線 353
實(shí)例252 如何在報(bào)表控件中繪制圓角
矩形 357
實(shí)例253 如何使用隨機(jī)數(shù)填充圖表控件 361
實(shí)例254 如何向圖表中插入背景圖片 362
實(shí)例255 如何實(shí)現(xiàn)對(duì)圖表的放大、縮小
控制 362
實(shí)例256 如何在一個(gè)圖表序列中設(shè)定不同
的顏色 363
第15章 數(shù)據(jù)庫應(yīng)用 365
實(shí)例257 如何動(dòng)態(tài)連接到數(shù)據(jù)庫 367
實(shí)例258 如何添加BDE別名 368
實(shí)例259 如何動(dòng)態(tài)創(chuàng)建和刪除永久字段 369
實(shí)例260 如何獲得BDE的系統(tǒng)信息 370
實(shí)例261 如何復(fù)制一條記錄 372
實(shí)例262 如何建立臨時(shí)表并將其內(nèi)容
保存到永久表中 376
實(shí)例263 如何取得當(dāng)前的記錄數(shù) 377
實(shí)例264 如何將一個(gè)字段中的內(nèi)容導(dǎo)入到
ListBox中 379
實(shí)例265 如何將數(shù)據(jù)庫中的內(nèi)容添加到
OutLine控件中 379
實(shí)例266 如何創(chuàng)建一個(gè)和原始表結(jié)構(gòu)相同
的新表 381
實(shí)例267 如何判斷指針記錄是否改變 382
實(shí)例268 如何取消DBGrid控件自動(dòng)添
加空記錄 383
實(shí)例269 如何修改DBGrid控件中指定
行的顏色 384
實(shí)例270 如何轉(zhuǎn)換數(shù)據(jù)庫 385
實(shí)例271 如何創(chuàng)建一個(gè)Paradox數(shù)據(jù)庫 386
實(shí)例272 如何取得一個(gè)表的結(jié)構(gòu) 387
實(shí)例273 如何提示數(shù)據(jù)庫正在使用 387
實(shí)例274 如何將數(shù)據(jù)庫中的內(nèi)容寫入文本
文件 388
實(shí)例275 如何將字段的內(nèi)容添加到
ComboBox控件中 389
實(shí)例276 如何得到數(shù)據(jù)庫中的所有表名 389
實(shí)例277 如何判斷重復(fù)的值并進(jìn)行提示 390
實(shí)例278 如何將圖片導(dǎo)入到數(shù)據(jù)庫中 392
實(shí)例279 利用ADO動(dòng)態(tài)瀏覽數(shù)據(jù) 393
實(shí)例280 如何在DBGrid控件中顯示
圖片 395
第16章 網(wǎng)絡(luò)編程 398
實(shí)例281 如何取得計(jì)算機(jī)所在的工作組的
名稱 399
實(shí)例282 如何檢測(cè)計(jì)算機(jī)是否聯(lián)網(wǎng) 401
實(shí)例283 如何知道系統(tǒng)有幾個(gè)端口 401
實(shí)例284 如何取得Modem的狀態(tài) 402
實(shí)例285 如何獲得本地計(jì)算機(jī)的MAC
地址 403
實(shí)例286 實(shí)現(xiàn)Ping操作 406
實(shí)例287 如何實(shí)現(xiàn)超級(jí)鏈接效果 411
實(shí)例288 如何編寫信使程序 412
實(shí)例289 如何檢索網(wǎng)址 415
實(shí)例290 如何映射網(wǎng)絡(luò)驅(qū)動(dòng)器 420
實(shí)例291 如何實(shí)現(xiàn)熱點(diǎn)功能 421
實(shí)例292 如何讀取網(wǎng)卡的ID 421
實(shí)例293 如何編寫WWW瀏覽器 423
實(shí)例294 如何使用API函數(shù)實(shí)現(xiàn)消息
發(fā)送 426
實(shí)例295 如何判斷計(jì)算機(jī)是否聯(lián)網(wǎng) 428
實(shí)例296 如何獲取本地計(jì)算機(jī)名并對(duì)其
進(jìn)行修改 428
實(shí)例297 如何獲取本機(jī)IP 429
實(shí)例298 如何創(chuàng)建靜態(tài)網(wǎng)頁 431
實(shí)例299 如何創(chuàng)建動(dòng)態(tài)網(wǎng)頁 434
實(shí)例300 如何根據(jù)IP得到計(jì)算機(jī)的主機(jī)
名稱 435
第17章 新增功能 437
實(shí)例301 如何使用ShellTreeView控件 439
實(shí)例302 如何設(shè)置窗體的跳躍移動(dòng) 440
實(shí)例303 如何使用PageSetupDialog控件 441
實(shí)例304 如何使用Frame控件 443
實(shí)例305 如何得到主機(jī)的IP地址 444
實(shí)例306 如何使用ActiveForm創(chuàng)建動(dòng)態(tài)
網(wǎng)頁 445
實(shí)例307 如何實(shí)現(xiàn)ComboBox控件的自動(dòng)
跟蹤功能 449
實(shí)例308 如何顯示XML文件 450
實(shí)例309 如何使用Rave控件制作報(bào)表 453
實(shí)例310 如何使用Qreport控件 457
實(shí)例311 網(wǎng)絡(luò)聊天室 459