能够实现按下回车键后转换成按下TAB键吗？

[djwdjw]

在多外TEdit控件上，我想实现按下回车键时，同按下Tab键一样的功能，怎样实现，请大家帮忙看看。

[FAICHEN]

键盘钩子

[hongliqiu]

在OnKeyDown事件中判断是否按下＃13，如果是那么焦点转移到下一个控件上就行了。

[lancelord]

哦，来晚了， hongliqiu(在火中) 已经解答了，呜呜呜

[jjhuajesus]

在keyPress里面识别是否按下回车键

To FAICHEN
屁钩子

[netwizard]

在Keyup事件中使用Self.FindNextControl().SetFocus即可。或者SendMessage(Handle, WM_NEXTDLGCTL, 0, 0);

也就是通常所说的回车代替换行。要设定好窗体上控件的TabOrder特性。我个人感觉FindNextControl比较好用。

[jin_zai]

将form的keypreview设成true,
然后在form的KeyPress事件中写入
if key=#13 then
begin
key:=#0;
perform(WM_NEXTDLGCTL,0,0);
end;

[netwizard]

在Keyup事件中使用Self.FindNextControl().SetFocus即可。或者SendMessage(Handle, WM_NEXTDLGCTL, 0, 0);

也就是通常所说的回车代替换行。要设定好窗体上控件的TabOrder特性。我个人感觉FindNextControl比较好用。

我说也是用什么Hook啊。

[dickeybird888]

perform(cm_dialogkey,vk_tab,0)

[mengxiang5160]

给你一个procedure
procedure Tfrm_cjycx.FormKeyPress(Sender: TObject; var Key: Char);
//var i:integer;
begin
if (ActiveControl is Tedit) Then
begin
if Not (Key in ['0'..'9','.','.',#8,#13]) then
begin
Key := #0;
end;
end;
if key=#13 then
begin
key:=#0;
perform(cm_dialogkey,vk_tab,0);
//maxdata;
end;

end;

[djwdjw]

谢谢大家，问题已经解决，我试了试，大家的方法都可以实现，非常感谢大家，解决一个问题居然可以用这么多种方法来解决，对于我这样一个Delphi初学者来说真是受益匪浅。