如何获取输入的焦点呀!(5分)

  • 主题发起人 主题发起人 studing
  • 开始时间 开始时间
S

studing

Unregistered / Unconfirmed
GUEST, unregistred user!
我想在启动程序时,输入的焦点在edit1.text中,可以用form1的onshow事件中输入edit1.setfocus
但是在敲入回车后,如何使焦点自动变到edit2.text中呢?回车可以用什么函数表示呀!那里有此类函数
的介绍呀!
 
你可以在edit1.onkeydown事件中写
if key=13 //表示回车
then edit2.setfocus
(若在onkeypress事件中则应为if key=#13 then...)

回车的值一般可以用13或vk_return表示
 
你又可以在Edit1中的Onkeydown中這樣寫道啊
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
edit2.SetFocus;
end;

如果你要通用的也行,
先設置窗口的Keypreview為True
在此窗口的Onkeypress事件中這樣寫道
begin
if key=#13 then
perform(WM_NEXTDLGCTL,0,0);
end
 
多人接受答案了。
 
后退
顶部