Delphi转移焦点一法

软件世界

pcfans · 2004年4月5日

　　用Delphi编程时，编辑框的使用比较频繁。而在程序运行过程中，大家也许会发现，当把焦点从一个编辑框转移到另一个编辑框时，只能使用鼠标键或者Tab键来完成。这或许是国外软件的一个习惯，但在实际工作中，很多人更习惯于在一个编辑框中输入完内容后顺手按一下回车键就将焦点转移到下—个编辑框。

　　怎么实现这一点呢？其实只要在设计时将所有编辑框的TABSTOP属性设为TRUE，并将各编辑框的TABORD

　　ER属性按—定的顺序排列，并在各编辑框ONKEYPRESS事件中重载以下代码就可以了。

　　procedure Tform1. Edit1KeyPress(Sender：TObject；var Key:Char);

　　begin

　　if key=#13 then

　　begin

　　SelectNext(((sender) as twincontrol),true,true);

　　Key:=#0:

　　end;

　　end;