Delphi 7編程實例與技巧集粹

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