Delphi入門(mén)點(diǎn)點(diǎn)滴滴 [原創(chuàng )]（2001年底寫(xiě)的，久遠了點(diǎn)，呵呵）
出處
[發(fā)表于2002年第11/12期《電腦報》軟件星空版，連載兩期。]
“聰明的程序員用Delphi！”現在，真是有越來(lái)越多的人開(kāi)始用Delphi了。不過(guò)，高手畢竟是少數，像我這樣的菜鳥(niǎo)可謂遍地都是，哈哈。既然是菜鳥(niǎo)自然就有一大堆很菜的問(wèn)題，什么這個(gè)怎么設置、那個(gè)怎么寫(xiě)的……所以，以下我就以我所積累的那一點(diǎn)點(diǎn)經(jīng)驗和論壇上常見(jiàn)的小問(wèn)題作一個(gè)總結性發(fā)言（全場(chǎng)熱烈鼓掌！哎，這鮮花我就收下了，那個(gè)什么爛番茄就不要扔上來(lái)了嘛）
＝＝系統應用篇＝＝
Ａ．Delphi自代了大量的常用控件，如Delphi5就有一百多了，而今年出的Delphi6更是Delphi5的1.5倍。這么多控件，就是在1024*768的分辨率下也無(wú)法全部顯示他們的組件面板，而每次要按那兩顆小按鈕來(lái)顯示更多的面板，真是非常不方便！但通過(guò)添加下面那一個(gè)注冊表鍵值就能實(shí)現組件面板自動(dòng)展開(kāi)：
[HKEY_CURRENT_USER\Software\Borland\Delphi\X.0\Extras]
"AutoPaletteSelect"="1"
（注：X.0表示你的Delphi的版本號；如果沒(méi)有Extras主鍵則新建即可，下同）
Ｂ．每次新建窗體，然后設置其字體、大小……真是好麻煩的！那就再添加一個(gè)以下的鍵值，讓系統自動(dòng)來(lái)設置吧：
[HKEY_CURRENT_USER\Software\Borland\Delphi\X.0\FormDesign]
"DefaultFont"="宋體,9,_"
（注：_表示空格，也可以用Bold(粗體)等代替）
Ｃ．自定義工作環(huán)境，讓它更加適合自己。
•設置工具欄。在Delphi的工具欄右鍵單擊，選Customize，然后挑選需要的按鈕拖到工具上，把不要的拖出來(lái)。我常用的是：Standard工具欄下的Open、Open Project、Save、Save All、Undo、Redo；Debug工具欄下的Pause、Add Watch、Program Reset、Run；Desktop工具欄下的Save Current Desktop、Set Debug Desktop；Component Palette工具欄。
•設置窗口布局。為了能跟高效的編寫(xiě)程序，合理的布置各個(gè)窗口是很重要的。我常用的窗口有：Object Inspector、Project Manager(View|Project Manager)、Watch List(Run|Add Watch...) ，具體的停放位置如圖1。
[圖1]
設置好各個(gè)窗體后按Desktop工具欄上的Save Current Desktop按鈕保存。
•設置顯示顏色。讓代碼的顏色更符合自己的習慣，有利于編寫(xiě)時(shí)思維的清晰。Tools|Editor Options打開(kāi)Editor Properties，選Color標簽頁(yè)，設置代碼顏色。以下僅解釋一下幾個(gè)常用的：
Whitespace：空白處，即背景；
Comment：注釋?zhuān)?div style="height:15px;">
Reserved word：保留字；
String：字符串；
Number：數字；
Execution Point：正在執行的當前行（即F7步入時(shí)所到達的那一行）；
Enabled break：斷點(diǎn)；
Error line：錯誤發(fā)生行；
Ｄ．掌握一些Delphi編程中的快捷鍵，能夠極大程度的提高效率，還不會(huì )讓你因為過(guò)多無(wú)聊的設置等而感到厭煩，現在如果不用這些快捷鍵，我會(huì )很不適應這樣的編程的！以下我就介紹一下我常用的幾個(gè)快捷鍵：
Esc : 選擇當前選中組件的容器（通常是Panel,GroupBox或Form等）；
Ctrl+方向鍵 ：將所選組件移動(dòng)一個(gè)像素；
Ctrl+Shift+方向鍵 ：將所選組件移動(dòng)一大格（類(lèi)似Fireworks中按住Shift再用方向鍵移動(dòng)時(shí)的效果）；
Shift+方向鍵 ：調整選中組件的大小，每次一像素；
Shift+選中組件 ：按住Shift鍵再用鼠標點(diǎn)擊組件，可以同時(shí)選擇多個(gè)組件；
Ctrl+鼠標左鍵 ：在procedure中掉用其他的函數（如一個(gè)自定義的過(guò)程），在這個(gè)調用處按住Ctrl會(huì )發(fā)現當鼠標移上去的時(shí)候變成了一個(gè)類(lèi)似超鏈接的格式，鼠標單擊就能直接轉到所調用的此函數的實(shí)現部分。這個(gè)功能我可是用的最多了，讓我找模塊變得非常方便！
Ctrl+Shift+C ：在一個(gè)對象中聲明了一個(gè)方法，然后把光標放到它的上面，按下Ctrl+Shift+C就可以為他的實(shí)現建立一個(gè)基本框架，如：
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
procedure Mine;
end;
把光標放到procedure Mine這行，按下Ctrl+Shift+C，下面這段代碼將自動(dòng)插入到單元中：
procedure TForm1.Mine;
begin
end;
＝＝窗體操作篇＝＝
在有多個(gè)窗體的程序中，Delphi默認是將它們在程序啟動(dòng)時(shí)全部創(chuàng )建（只是都隱藏了，只顯示一個(gè)主窗體），這樣，那些暫時(shí)不必要啟動(dòng)的窗體就占用了許多內存空間。所以我們需要在菜單Project|Options...的Forms標簽頁(yè)下，將那些暫時(shí)不要啟動(dòng)的窗體從“Auto-create forms”下轉移到“Available forms”中。這樣，這些窗體的創(chuàng )建和釋放就需要代碼來(lái)實(shí)現了。
Ａ．兩種創(chuàng )建窗體方法之比較。對于這些非自動(dòng)創(chuàng )建的窗體，我們必須在Show之前Creat(Self)或Create(Application)，將其創(chuàng )建。如Form2.Creat(Self)和Form2.Create(Application)，可是，它們兩個(gè)到底有什么區別呢？其實(shí)兩者區別不大，
但如果Owner是屬于別的窗口或控件的話(huà)，當它的Owner被釋放的時(shí)候，該Owner所擁有的也會(huì )被釋放。關(guān)鍵的區別是由誰(shuí)來(lái)管理該窗體的資源。用第一種方法創(chuàng )建，該窗體的資源由編程者來(lái)負責管理；用第二種方法創(chuàng )建，該窗體的資源由Application來(lái)管理。
Ｂ．幾種窗體的釋放方法。既然是為了節約內存，那么用完了的窗體就應該“搬出”內存。在這里我列舉幾個(gè)大同小異的方法：
(1)
procedure TForm1.Button1Click(Sender :TObject);
begin
......
if Form2 = nil then
Form2:=TForm2.Create(Application);
Form2.ShowModal;
......
end;
procedure TForm2.close(Sender: TObject; var Action: TCloseAction);
begin
ModalResult := mrNone;
Action := caFree;
Form2 := nil;
end;
(2)
procedure TForm1.Button1Click(Sender :TObject);
begin
if not Assigned(Form2) then
begin
Application.CreateForm(TForm2,Form2);
try
Form2.ShowModal;
finally
Form2.Free;
Form2 := nil;
end;
end
else
Form2.ShowModal;
end;
(3)
procedure TForm2.Button1Click(Sender :TObject);
begin
Form2.Close;
Form2.Release;
end;
＝＝控件使用篇＝＝
Ａ．大名鼎鼎的RXLib控件包是由三位俄羅斯高手編寫(xiě)的，非常的出色！不過(guò)，內容太多了，要用好也不容易。我在此拿RxRichEdit簡(jiǎn)單地說(shuō)幾點(diǎn)。
•好多人都問(wèn)RxLib怎么安裝，似乎的確有點(diǎn)復雜，呵呵，所以我也順便說(shuō)一下：
運行rxinst.exe將RxLib先安裝到\Program Files\Borland\Delphi5（或6）\RX文件夾下，然后打開(kāi)Delphi，選File\Open...，將RXCTL5.DPK、RXDB5.DPK、RXBDE5.DPK分別打開(kāi)后按compile，繼續打開(kāi)：DCLRX5.DPK、DCLRXDB5.DPK和DCLRXBD5.DPK，將這三個(gè)分別按compile后按install就可以了:-)
•AllowObjects屬性。Win98下默認設置為T(mén)rue，右鍵菜單沒(méi)有問(wèn)題，但設為False時(shí)快捷菜單會(huì )連續出現兩次；Win2000下，設為T(mén)rue時(shí)會(huì )使右鍵菜單無(wú)法彈出，而False時(shí)卻顯示正常。所以，為了系統的兼容性，需要判斷當前OS版本：
procedure TFormMain.FormCreate(Sender: TObject);
var
OSVI:OSVERSIONINFO;
......
begin
OSVI.dwOSVersionInfoSize:=sizeof(OSVERSIONINFO);
GetVersionEx(OSVI);
case OSVI.dwPlatformId of
1:RxRichEdit1.AllowObjects:=true;
2:RxRichEdit1.AllowObjects:=false;
end;
.......
end;
但我不知這個(gè)屬性為什么會(huì )有這么一個(gè)問(wèn)題，還望高手指點(diǎn)。
•OnURLClick事件。RXRichEdit有自動(dòng)將網(wǎng)頁(yè)地址轉為超鏈接格式，但具體的行為還是要自己寫(xiě)代碼的，不然這些地址就成了個(gè)空殼了：
procedure TFormMain.RXRichEdit1URLClick(Sender: TObject; const URLText: String; Button: TMouseButton);
begin
if Button = mbLeft then
ShellExecute(Handle, nil, PChar(URLText), nil, nil, SW_SHOW);
end;
Ｂ．為了節約內存，優(yōu)化運行，我們總是動(dòng)態(tài)創(chuàng )建組件?？僧斢猛曛?，如果不及時(shí)徹底的將其從內存中清理出去，那就有違我們的初衷了?？稍趺?#8220;殺死”所創(chuàng )建的組件? 比如創(chuàng )建了一個(gè)Edit控件,現在想讓它消失，但用Edit.Free后，調用Edit.Text卻仍然存在……我們知道，光Free是不行的，這只是將Edit所指向的內存空間釋放了，但是指針并沒(méi)有設定為nil，當調用Edit.Text時(shí)，Delphi仍然會(huì )根據Edit提供的指針訪(fǎng)問(wèn)已經(jīng)釋放的內存區域，所以會(huì )產(chǎn)生Access Violation ....錯誤。所以我們需要在Free后Edit:=nil或者FreeAndNil（只在Delphi5下有效）將指針nil掉，才能保證以后的正常運行。
Ｃ．將各控件的提示文本顯示于狀態(tài)行上。這個(gè)可用Application的OnHint事件，但由于A(yíng)pplication為不可件對象，因此可以采用如下方法：
......
public
procedure DisplayHint(Sender: TObject); //聲明一個(gè)方法用于顯示提示文本
end;
......
procedure TForm1.DisplayHint(Sender: TObject); //實(shí)現部分
begin
StatusBar1.SimpleText := GetLongHint(Application.Hint);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnHint := DisplayHint;
end;
這樣顯示在狀態(tài)欄里的文本和提示框（就是那個(gè)自動(dòng)出現的黃色小框）里的是一樣的。如果想要在狀態(tài)欄里的提示文本更加詳細怎么辦？其實(shí)，只要控件的Hint屬性這樣寫(xiě)：MyHint|It‘s just a MyHint!，就可以讓“|”前的內容顯示在提示框（Help Hint box）里，“|”的后面的內容顯示在狀態(tài)欄里了。
Ｄ．ListView使用中的一些要點(diǎn)。以下以一個(gè)兩列的ListView為例。
→增加一行：
with ListView1 do
begin
ListItem:=Items.Add;
ListItem.Caption:=‘第一列內容‘;
ListItem.SubItems.Add(‘第二列內容‘);
end;
→清空ListView1：
ListView1.Items.Clear;
→得到當前被選中行的行的行號以及刪除當前行：
For i:=0 to ListView1.Items.Count-1 Do
If ListView1.Items[i].Selected then //i=ListView1.Selected.index
begin
ListView1.Items.Delete(i); //刪除當前選中行
end;
當然，ListView有OnSelectItem事件,可以判斷選擇了哪行,用個(gè)全局變量把它賦值出來(lái)。
→讀某行某列的操作：
Edit1.Text := listview1.Items[i].Caption; //讀第i行第1列
Edit2.Text := listview1.Items[i].SubItems.strings[0]; //讀第i行第2列
Edit3.Text := listview1.Items[i].SubItems.strings[1]; //讀第i行第3列
以次類(lèi)推，可以用循環(huán)讀出整列。
→將焦點(diǎn)上移一行：
For i:=0 to ListView1.Items.Count-1 Do
If (ListView1.Items[i].Selected) and (i>0) then
begin
ListView1.SetFocus;
ListView1.Items.Item[i-1].Selected := True;
end;
不過(guò)在Delphi6中，ListView多了一個(gè)ItemIndex屬性，所以只要
ListView1.SetFocus;
ListView1.ItemIndex:=3;
就能設定焦點(diǎn)了。
＝＝其他＝＝
•為了優(yōu)化軟件，使其精益求精，當用到數組時(shí)經(jīng)常采用動(dòng)態(tài)數組。在聲明時(shí)，如：A : array of string，然后在使用數組之前，SetLength(A,3)設置數組長(cháng)度為3，即A[0],A[1],A[2]，這樣就可以了。當需要擴大數組長(cháng)度時(shí)，再一次：SecLength(A,5)，那么，就增加了A[3]和A[4]，而前面的A[0],A[1],A[2]里的值不會(huì )清空；同樣，如果SecLength(A,3)后再SecLength(A,1)的話(huà)，就只剩A[0]了，A[1]和A[2]自動(dòng)被清除內存。注意：動(dòng)態(tài)數組是從“0”開(kāi)始的，所以SetLength(A,1)后High(A)=0的??！
最后當不再用這個(gè)動(dòng)態(tài)數組了，而程序還沒(méi)有要退出，那為了節省內存用：A:=nil來(lái)釋放掉這個(gè)數組，這下真正達到了“綠色環(huán)保”：）
•“怎么獲取當前程序運行的路徑”這個(gè)問(wèn)題經(jīng)常能夠在論壇上看到。的確，這個(gè)函數在編程中不時(shí)的要用到的。其實(shí)有好幾個(gè)函數都能達到這個(gè)效果：
→GetCurrentDirectory()：WinAPI函數，具體用法如下：
var
MyCurrentDir:Array[0..144] of Char; //存儲當前絕對路徑
begin
GetCurrentDirectory(SizeOf(MyCurrentDir),MyCurrentDir); //取得當前絕對路徑,最后得到的格式如：C:\WINDOWS\SYSTEM
MyCurrentDir:=MyCurrentDir+‘\MySoftName.exe‘;
end;
→GetCurrentDir()：GetCurrentDirectory經(jīng)過(guò)Delphi封裝后的一個(gè)函數，用法簡(jiǎn)單：MyCurrentDir:=GetCurrentDir。最后得到的格式如：C:\WINDOWS\SYSTEM
還有就是可以直接得到路徑的函數：ExtractFilePath(ParamStr(0))、ExtractFilePath(Application.exename)等。
•系統的關(guān)機、重新啟動(dòng)等操作的消息。這也是一個(gè)常有人問(wèn)的問(wèn)題，在此我也順便在提一下：
關(guān)機：ExitWindowsEx(EWX_SHUTDOWN,32);
重新啟動(dòng)：ExitWindowsEx(EWX_REBOOT,32);
注銷(xiāo)：ExitWindowsEx(EWX_LOGOFF,32);
關(guān)閉電源：ExitWindowsEx(EWX_POWEROFF,32);
•在Delphi中，除了使用#39外，要在程序中（如ShowMessage中）顯示“單個(gè)單引號”要如何處理？‘‘‘和‘‘‘‘‘都會(huì )出現編譯錯誤。其實(shí)，是四個(gè)單引號表示一個(gè)單引號，也就是是 ‘‘‘‘，第二個(gè)和第三表明這是一個(gè)“‘”，第一個(gè)和第四個(gè)是表明這是一個(gè)字符型。呵呵，很有趣哦：）
•ShowMessage中的漢化問(wèn)題。ShowMessage中的按鈕都是E文的，讓人很不舒服。其實(shí)經(jīng)過(guò)我們的一番DIY，也能把它們都弄成中文的。
首先要保存當前的工程，然后選Project|Languages|Add...，出現Add Language對話(huà)框，選擇你要漢化的工程（也可以自定義文件夾），Next；選最后一項“中文（中國）”，Next；Next；Next；Finish；OK；然后就出現了Translation Manager對話(huà)框，在左邊選“中文（中國）|Resource Scripts|Projet1_DRC（這個(gè)具體要看你的工程文件名）”，然后右邊的列表里找到“Const_SMsgDlgOK”項，將其的“中文（中國）(translated)”格改為“確定”（原為OK），保存后退出。這下，再運行一下程序，哈哈，是不是就是中文按鈕啦！
不過(guò)，ShowMessage這種類(lèi)型的信息對話(huà)框非常簡(jiǎn)單了，可以在系統調試期間顯示給開(kāi)發(fā)人員一些過(guò)程信息。但由于過(guò)于簡(jiǎn)單，所以我建議在軟件的正式版中不要使用這樣的對話(huà)框。而且，最好用MessageBox代替ShowMessage以減小軟件的體積，例如，同樣一個(gè)DLL文件，采用MessageBox 編譯后的DLL文件大小為58K，而ShowMessage后就變成了301K??！
