如何使用回车键模仿Tab键
编号：QA000942
建立日期: 1999年5月6日 最后修改日期：2002年3月25日
所属类别：
李中未:
在Delphi编程中，如何实现用回车键在若干个编辑窗口中切换？比如，姓名和密码两个输入窗口，输入姓名后，只能用Tab键或用鼠标定位光标到密码输入窗口，我想用回车键切换窗口。
回答:
先将窗体的KeyPreview属性设为True。然后在FormKeyPress事件中加入以下代码：
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then { 如果按下了回车键 }
begin
Key := #0; { 吃掉回车键 }
Perform(WM_NEXTDLGCTL, 0, 0); { 移动到下一个控制 }
end;
end;
这个方法对于大多数控件都适用，但不适用于TButton控件，因为对于按钮，回车键等于按下了按钮，不触发FormKeyPress事件。
Perry问：
非常感谢得到你的指点，你的方法确实已经非常简单，但如果要在每一个窗口都重复写以上内容，还是有些繁。怎样将其改写成一个自定义过程，然后在每一个窗口中调用此过程?
答：要改写成一个自定义过程，可以这样：
procedure MyKeyPress(frm:TForm; var Key: Char);
begin
if Key = #13 then { 如果按下了回车键 }
begin
Key := #0; { 吃掉回车键 }
frm.Perform(WM_NEXTDLGCTL, 0, 0); { 移动到下一个控制 }
end;
end;
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
MyKeyPress(Self, Key);
end;
如果你经常使用这样的窗体，你也可以在设置好KeyPreview属性和输入代码后，在Form上击右键，选择Add to Repository，这样把Form添加到Delphi的Repository库中，以后建立新窗口时，可以从Delphi的对话框的Forms中选择你添加的这个窗体作为模板。
Perry问：
非常感谢您给出以上好方法。最近我发现以上方法还有一个不足之处:
如果我在form中使用了DBMemo控件，那么在DBMemo中(表格的备注字段)将不能輸入Enter，也就是说說在DBMemo中不能实现换行操作。因为只要你按下Enter键，光标马上就会从DBMemo中跳幵，这显然不合要求。请问这一点应如何改进?谢谢!
答：这的确是个问题。可以这样解决：在KeyPress事件中先判断一下控件的类型，如果当前控件是TMemo或TDBMemo（甚至可以进一步检查控件的名字中是否带有Memo的），就不进行移动，对于这样的控件还是通过Tab键移动。下面是代码：
var sClassName: string;
begin
if Key = #13 then { 如果按下了回车键 }
begin
sClassName := TForm(Sender).ActiveControl.ClassName;
if (sClassName <> 'TDBMemo')
And (sClassName <> 'TMemo') then
begin
Key := #0; { 吃掉回车键 }
Perform(WM_NEXTDLGCTL, 0, 0); { 移动到下一个控制 }
end;
end;
刘鹰的意见：
选中窗体上所有控件后，在他们的KEYPRESS事件中写如下代码：
SELECTNEXT(SENDER AS TWINCONTROL，TRUE，TRUE);
主持人注：这个方法比较麻烦，仅供参考。
此问题由李海回答。
| |
|
|
| |
|
|
