对含有Caption属性的组件，添加快捷键是比较容易的，只需在Caption属性中特定字符前加上“&”符号即可。那么，怎样给没有Caption属性的控制添加快捷键呢？现以给一个TMemo控制添加快捷键为例说明如下：在窗体上放置一个TMemo控制，再在其旁边放置一个TLabel控制，将其Caption属性设置为“&Memo1”，将TLabel的FocusControl属性设置为“Memo1”。编译并运行这个程序，按快捷键 <ALT+M>，就可以快速存取Memo1控制的内容。这项技术不需要任何代码，可以应用到所有没有Caption属性的控件上。

I 选择组件的父组件和多个组件

在Delphi集成环境中，在设计窗体时，如果父组件是不可见的，要选择父组件就比较困难。其实有一个简单的方法：选择不可见组件的一个子组件，按<ESC>键，就可以选中其父组件。 当窗体上有多个组件时，可以通过按下鼠标左键拖动鼠标，将虚线矩形框包围要选择的组件，就可以方便地选择它们。但是, 如果想选择放置在一个面板类组件（如TPanel）上的一组组件时，单击并拖动将移动这组组件下的父组件，达不到预期的效果。为了避免这种情况的发生，需要按下<Ctrl>键，然后再执行上述操作。

另外，按下<Shift>键，单击一个组件，可以选择或取消选择一个组件。这对需要选择不同面板组件上的子组件时十分有用。

J 移动组件或调整其大小

在窗体上移动组件或调整其大小时，有时希望一次一个象素点地进行。采用Object Inspector来修改组件的left, top, width和height属性可以做到这一点。但是还有一种更为简单的方法，就是使用<Shift>和<Ctrl>键加上箭头键。按<Shift+箭头键>组合键在箭头指向的方向上调整组件的大小；按<Ctrl+箭头键>组合键在箭头指向的方向上移动组件。这两种组合键对选定的多个组件同时有效。

K 在TNotebook组件的所有页面上显示组件

若希望在TNotebook或TPageControl组件的所有页面上显示某些组件（例如浏览数据库的列表框）时，不需要在在每个页面上重复设置这些组件，只需要首先建立它们，然后再添加TNotebook或TPageControl控件，调整它们的大小和位置，用鼠标右键单击TNotebook或TPageControl组件，单击弹出菜单中的“Send To Back”属性，这时最先添加的控件就显示在TNotebook或TPageControl控件之上，按通常的方法添加其他组件到TNotebook或

TPageControl组件即可。

此方法只对控件有效，所以TDBText需用TDBEdit代替，并设置其为只读，边界属性设置为空，Ctrl3D属性设置为假。同理，需要用TPanel组件代替TLabel组件。

另一种更为有效的方法是编写一段代码，来动态改变组件的位置，这种方法对所有的组件均有效。以TPageControl为例，在其OnChange事件处理程序中插入如下代码：

procedure TForm1.PageControl1Change(Sender: TObject);

begin

Panel1.Parent := PageControl1.ActivePage;

//other code follows

end;

实际使用时，用自己的组件代替Panel1。记住：应当将组件放置在程序运行时，打开对话框时首先显示的对话页上，以避免在窗体的OnCreate事件处理程序中编写代码。

L 取消拖动操作

在设计窗体时，如果在移动一个组件的位置时，发现选错了组件，这时该怎么办呢？无疑，你想取消这一步的拖动操作，其实很简单，在没有释放鼠标键之前，按<ESC>键，这个组件就会返回到原来的位置。

M 为Y2K格式化tDateTimePickers的日期显示

在Delphi中使用TDateTimePicker.DateFormat来指明日期格式，DateFormat是TDTDateFormat类型属性，取值为dfShort或dfLong。若取dfShort, 日期格式类似于是“3/21/97”；若取dfLong, 日期格式类似于“Friday, March 21, 1997”。

为了兼容Y2K格式，需将日期格式设置为YYYY-MM-DD，根据上面的解释，tDateTimePicker组件在设置为短日期格式时就不敷应用了。但是, 如果你在控制面板中设置了短格日期式（使用区域设置），tDateTimePicker将使用Windows的设置，所以它还是可以使用的。 DELPHI编程技巧集锦（2）

董占山

(中国农科院棉花研究所，河南安阳，455112)

三、代码设计的相关技巧

A 使用特殊字符

应用程序有时需要用到键盘上没有的字符，例如，版权符号（&copy;）、英镑符(￡)和日圆符(￥)等。为了输入这些字符，需要使用Windows字模映射程序。

打开字模映射程序，从“字体”列表框中选中合适的字体，在下面的列表框选中一个字符，在窗口的右下角将显示出这个字符的ASCII码值。例如英镑符的ASCII码为0163，在键盘上按下<ALT>键的同时按下0163，就可以输入英镑符。也可以使用字模映射程序的选择和复制按钮将选定字符复制到Windows的剪贴板上，然后再使用“粘贴”命令或按<SHIFT+INS>键盘命令将字符粘贴到目标程序代码中。

B 在代码中设置位置标记

Delphi代码编辑器允许在源代码中放置一些位置标记，就向老式的WordStar所具有的那种。使用位置标记的目的是快速地在文档不同位置之间进行切换。比如在创建一个类函数时，希望看一下它的声明部分，位置标记就派上用场了。在代码编辑器中设定位置标记的快捷键为：<CTRL+K>+<1-9之间的任意数字>，移动到已有位置标记的快捷键为：<CTRL+Q> + <1-9之间的任意数字>。在默认状态下，Delphi并不保存用户在代码中设定的位置标记，为了让Delphi将设定的位置标记保存到文件中，一便下次利用，需要在“Environment Options”对话窗口的“Preferences”对话页选中“Autosave”复选项，这样Delphi就将位置标记信息保