Delphi入门点点滴滴

核心提示：“聪明的程序员用Delphi！”现在，真是有越来越多的人开始用Delphi了，Delphi入门点点滴滴，不过，高手毕竟是少数，例如，同样一个DLL文件，像我这样的菜鸟可谓遍地都是，哈哈

“聪明的程序员用Delphi！”现在，真是有越来越多的人开始用Delphi了。不过，高手毕竟是少数，像我这样的菜鸟可谓遍地都是，哈哈。既然是菜鸟自然就有一大堆很菜的问题，什么这个怎么设置、那个怎么写的……所以，以下我就以我所积累的那一点点经验和论坛上常见的小问题作一个总结性发言（全场热烈鼓掌！哎，这鲜花我就收下了，那个什么烂番茄就不要扔上来了嘛）

＝＝系统应用篇＝＝

Ａ．Delphi自代了大量的常用控件，如Delphi5就有一百多了，而今年出的Delphi6更是Delphi5的1.5倍。这么多控件，就是在1024*768的分辨率下也无法全部显示他们的组件面板，而每次要按那两颗小按钮来显示更多的面板，真是非常不方便！但通过添加下面那一个注册表键值就能实现组件面板自动展开：
[HKEY_CURRENT_USER\Software\Borland\Delphi\X.0\Extras]
"AutoPaletteSelect"="1"
（注：X.0表示你的Delphi的版本号；如果没有Extras主键则新建即可，下同）

Ｂ．每次新建窗体，然后设置其字体、大小……真是好麻烦的！那就再添加一个以下的键值，让系统自动来设置吧：
[HKEY_CURRENT_USER\Software\Borland\Delphi\X.0\FormDesign]
"DefaultFont"="宋体,9,_"
（注：_表示空格，也可以用Bold(粗体)等代替）

Ｃ．自定义工作环境，让它更加适合自己。
  •设置工具栏。在Delphi的工具栏右键单击，选Customize，然后挑选需要的按钮拖到工具上，把不要的拖出来。我常用的是：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工具栏。
  •设置窗口布局。为了能跟高效的编写程序，合理的布置各个窗口是很重要的。我常用的窗口有：Object Inspector、Project Manager(View|Project Manager)、Watch List(Run|Add Watch...) ，具体的停放位置如图1。

设置好各个窗体后按Desktop工具栏上的Save Current Desktop按钮保存。
  •设置显示颜色。让代码的颜色更符合自己的习惯，有利于编写时思维的清晰。Tools|Editor Options打开Editor Properties，选Color标签页，设置代码颜色。以下仅解释一下几个常用的：
  Whitespace：空白处，即背景；
  Comment：注释；
  Reserved Word：保留字；
  String：字符串；
  Number：数字；
  Execution Point：正在执行的当前行（即F7步入时所到达的那一行）；
  Enabled break：断点；
  Error line：错误发生行；

Ｄ．掌握一些Delphi编程中的快捷键，能够极大程度的提高效率，还不会让你因为过多无聊的设置等而感到厌烦，现在如果不用这些快捷键，我会很不适应这样的编程的！以下我就介绍一下我常用的几个快捷键：
Esc : 选择当前选中组件的容器（通常是Panel,GroupBox或Form等）；
Ctrl+方向键 ：将所选组件移动一个像素；
Ctrl+Shift+方向键 ：将所选组件移动一大格（类似fireworks中按住Shift再用方向键移动时的效果）；
Shift+方向键 ：调整选中组件的大小，每次一像素；
Shift+选中组件 ：按住Shift键再用鼠标点击组件，可以同时选择多个组件；
Ctrl+鼠标左键 ：在procedure中掉用其他的函数（如一个自定义的过程），在这个调用处按住Ctrl会发现当鼠标移上去的时候变成了一个类似超链接的格式，鼠标单击就能直接转到所调用的此函数的实现部分。这个功能我可是用的最多了，让我找模块变得非常方便！
Ctrl+Shift+C ：在一个对象中声明了一个方法，然后把光标放到它的上面，按下Ctrl+Shift+C就可以为他的实现建立一个基本框架，如：
TForm1 = class(TForm)
  private
　  { Private declarations }
  public
　  { Public declarations }
　  procedure Mine;
  end;
把光标放到procedure Mine这行，按下Ctrl+Shift+C，下面这段代码将自动插入到单元中：
procedure TForm1.Mine;
begin

end;

＝＝窗体操作篇＝＝

　  在有多个窗体的程序中，Delphi默认是将它们在程序启动时全部创建（只是都隐藏了，只显示一个主窗体），这样，那些暂时不必要启动的窗体就占用了许多内存空间。所以我们需要在菜单Project|Options...的Forms标签页下，将那些暂时不要启动的窗体从“Auto-create forms”下转移到“Available forms”中。这样，这些窗体的创建和释放就需要代码来实现了。
Ａ．两种创建窗体方法之比较。对于这些非自动创建的窗体，我们必须在Show之前Creat(Self)或Create(application)，将其创建。如Form2.Creat(Self)和Form2.Create(Application)，可是，它们两个到底有什么区别呢？其实两者区别不大，
但如果Owner是属于别的窗口或控件的话，当它的Owner被释放的时候，该Owner所拥有的也会被释放。关键的区别是由谁来管理该窗体的资源。用第一种方法创建，该窗体的资源由编程者来负责管理；用第二种方法创建，该窗体的资源由Application来管理。

Ｂ．几种窗体的释放方法。既然是为了节约内存，那么用完了的窗体就应该“搬出”内存。在这里我列举几个大同小异的方法：
(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控件包是由三位俄罗斯高手编写的，非常的出色！不过，内容太多了，要用好也不容易。我在此拿RxRichEdit简单地说几点。
  •好多人都问RxLib怎么安装，似乎的确有点复杂，呵呵，所以我也顺便说一下：
　  运行rxinst.exe将RxLib先安装到\Program Files\Borland\Delphi5（或6）\RX文件夹下，然后打开Delphi，选File\Open...，将RXCTL5.DPK、RXDB5.DPK、RXBDE5.DPK分别打开后按compile，继续打开：DCLRX5.DPK、DCLRXDB5.DPK和DCLRXBD5.DPK，将这三个分别按compile后按install就可以了:-)
  •AllowObjects属性。Win98下默认设置为True，右键菜单没有问题，但设为False时快捷菜单会连续出现两次；Win2000下，设为True时会使右键菜单无法弹出，而False时却显示正常。所以，为了系统的兼容性，需要判断当前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;
但我不知这个属性为什么会有这么一个问题，还望高手指点。
  •OnURLClick事件。RXRichEdit有自动将网页地址转为超链接格式，但具体的行为还是要自己写代码的，不然这些地址就成了个空壳了：
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;

Ｂ．为了节约内存，优化运行，我们总是动态创建组件。可当用完之后，如果不及时彻底的将其从内存中清理出去，那就有违我们的初衷了。可怎么“杀死”所创建的组件? 比如创建了一个Edit控件,现在想让它消失，但用Edit.Free后，调用Edit.Text却仍然存在……我们知道，光Free是不行的，这只是将Edit所指向的内存空间释放了，但是指针并没有设定为nil，当调用Edit.Text时，Delphi仍然会根据Edit提供的指针访问已经释放的内存区域，所以会产生access Violation ....错误。所以我们需要在Free后Edit:=nil或者FreeAndNil（只在Delphi5下有效）将指针nil掉，才能保证以后的正常运行。

Ｃ．将各控件的提示文本显示于状态行上。这个可用Application的OnHint事件，但由于Application为不可件对象，因此可以采用如下方法：
......
  public
　  procedure DisplayHint(Sender: TObject); //声明一个方法用于显示提示文本
  end;
......
procedure TForm1.DisplayHint(Sender: TObject); //实现部分
begin
  StatusBar1.SimpleText := GetLongHint(Application.Hint);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnHint := DisplayHint;
end;
这样显示在状态栏里的文本和提示框（就是那个自动出现的黄色小框）里的是一样的。如果想要在状态栏里的提示文本更加详细怎么办？其实，只要控件的Hint属性这样写：MyHint|It's just a MyHint!，就可以让“|”前的内容显示在提示框（Help Hint box）里，“|”的后面的内容显示在状态栏里了。

Ｄ．ListView使用中的一些要点。以下以一个两列的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事件,可以判断选择了哪行,用个全局变量把它赋值出来。
  →读某行某列的操作：
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列
以次类推，可以用循环读出整列。
  →将焦点上移一行：
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;
不过在Delphi6中，ListView多了一个ItemIndex属性，所以只要
ListView1.SetFocus;
ListView1.ItemIndex:=3;
就能设定焦点了。

＝＝其他＝＝

  •为了优化软件，使其精益求精，当用到数组时经常采用动态数组。在声明时，如：A : array of string，然后在使用数组之前，SetLength(A,3)设置数组长度为3，即A[0],A[1],A[2]，这样就可以了。当需要扩大数组长度时，再一次：SecLength(A,5)，那么，就增加了A[3]和A[4]，而前面的A[0],A[1],A[2]里的值不会清空；同样，如果SecLength(A,3)后再SecLength(A,1)的话，就只剩A[0]了，A[1]和A[2]自动被清除内存。注意：动态数组是从“0”开始的，所以SetLength(A,1)后High(A)=0的！！
　  最后当不再用这个动态数组了，而程序还没有要退出，那为了节省内存用：A:=nil来释放掉这个数组，这下真正达到了“绿色环保”：）

  •“怎么获取当前程序运行的路径”这个问题经常能够在论坛上看到。的确，这个函数在编程中不时的要用到的。其实有好几个函数都能达到这个效果：
→GetCurrentDirectory()：WinAPI函数，具体用法如下：
　　　  var
　　　　  MyCurrentDir:Array[0..144] of Char; //存储当前绝对路径
　　　  begin
　　　　  GetCurrentDirectory(SizeOf(MyCurrentDir),MyCurrentDir); //取得当前绝对路径,最后得到的格式如：C:\WINDOWS\SYSTEM
　　　　  MyCurrentDir:=MyCurrentDir+'\MySoftName.exe';
　　　  end;
→GetCurrentDir()：GetCurrentDirectory经过Delphi封装后的一个函数，用法简单：MyCurrentDir:=GetCurrentDir。最后得到的格式如：C:\WINDOWS\SYSTEM
　  还有就是可以直接得到路径的函数：ExtractFilePath(ParamStr(0))、ExtractFilePath(Application.exename)等。

  •系统的关机、重新启动等操作的消息。这也是一个常有人问的问题，在此我也顺便在提一下：
关机：ExitWindowsEx(EWX_SHUTDOWN,32);
重新启动：ExitWindowsEx(EWX_REBOOT,32);
注销：ExitWindowsEx(EWX_LOGOFF,32);
关闭电源：ExitWindowsEx(EWX_POWEROFF,32);

  •在Delphi中，除了使用#39外，要在程序中（如ShowMessage中）显示“单个单引号”要如何处理？'''和'''''都会出现编译错误。其实，是四个单引号表示一个单引号，也就是是 ''''，第二个和第三表明这是一个“'”，第一个和第四个是表明这是一个字符型。呵呵，很有趣哦：）

  •ShowMessage中的汉化问题。ShowMessage中的按钮都是E文的，让人很不舒服。其实经过我们的一番DIY，也能把它们都弄成中文的。
　  首先要保存当前的工程，然后选Project|Languages|Add...，出现Add Language对话框，选择你要汉化的工程（也可以自定义文件夹），Next；选最后一项“中文（中国）”，Next；Next；Next；Finish；OK；然后就出现了Translation Manager对话框，在左边选“中文（中国）|Resource Scripts|Projet1_DRC（这个具体要看你的工程文件名）”，然后右边的列表里找到“Const_SMsgDlgOK”项，将其的“中文（中国）(translated)”格改为“确定”（原为OK），保存后退出。这下，再运行一下程序，哈哈，是不是就是中文按钮啦！
　  不过，ShowMessage这种类型的信息对话框非常简单了，可以在系统调试期间显示给开发人员一些过程信息。但由于过于简单，所以我建议在软件的正式版中不要使用这样的对话框。而且，最好用MessageBox代替ShowMessage以减小软件的体积，例如，同样一个DLL文件，采用MessageBox 编译后的DLL文件大小为58K，而ShowMessage后就变成了301K！！