3 3897113blueappl Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-04 #1 我想让edit1.text 内容输入完以后,按一下回车光标依次跑到edit2.text框内,依次类推 edit3.text ,edit4.text,edit5,text 等等,请大家帮帮我,谢谢,
雪 雪中漫步 Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-04 #2 把 form的keypreview属性设为true 并在form的keydown事件中写 if key=13 then selectnext(activecontrol,true,true); 当然你的各个edit的taborder 要先设置好
把 form的keypreview属性设为true 并在form的keydown事件中写 if key=13 then selectnext(activecontrol,true,true); 当然你的各个edit的taborder 要先设置好
Q qianwt Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-04 #3 在所有Edit中的OnKeyDown事件中 if Key = VK_RETURN then PostMessage(Handle, WM_KEYDOWN, VK_TAB, 0)
白 白衣书生 Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-04 #4 笨办法: [] procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if Key=#13 then Edit2.SetFocus; end;
笨办法: [] procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if Key=#13 then Edit2.SetFocus; end;
影 影 子 Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-04 #5 这种问题很热门哦! 类似 雪中漫步 perform(WM_NEXTDLGCTL,0,0);
W WebExplorer Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-04 #7 设置好各个TEdit.TabOrder顺序 然后在其中一个TEdit响应KeyDown事件 if(Key=VK_RETURN) then SelectNext(Sender as TWinControl,true,true); 然后在其他TEdit的KeyDown实践中直接引用上面的那个事件,注意不要重写,也不要复制 指向它就可以了 如果使用KeyPreview这个方法可能碰到TRichEdit,TMemo就不好处理了,因为一回车跑到 别的地方去了,本来想换行
设置好各个TEdit.TabOrder顺序 然后在其中一个TEdit响应KeyDown事件 if(Key=VK_RETURN) then SelectNext(Sender as TWinControl,true,true); 然后在其他TEdit的KeyDown实践中直接引用上面的那个事件,注意不要重写,也不要复制 指向它就可以了 如果使用KeyPreview这个方法可能碰到TRichEdit,TMemo就不好处理了,因为一回车跑到 别的地方去了,本来想换行
Y yczjs Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-04 #9 用DosMove控件 楼上说的不支持光标键 Delphi园地有下载 http://mydelphi.8u8.com
F form1. Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-04 #10 在keydown事件中 if Key = VK_RETURN self.SelectNext(TEdit(Sender),true,true);
新 新手入门 Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-04 #11 procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if key = 13 then edit2.SetFocus; end;
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if key = 13 then edit2.SetFocus; end;
J joshua_jia Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-04 #12 上面的方法都不可以實現, 我也正遇到這樣的問題,請高手們幫忙啊!!