荔园在线
荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀
[回到开始]
[上一篇][下一篇]
发信人: Minatl (Minatl), 信区: Program
标 题: delphi如何改变焦点
发信站: BBS 荔园晨风站 (Wed Jan 20 19:18:35 1999), 转信
发信人: delphi.bbs@bbs.dlut.edu.cn (乾乾), 信区: Delphi
标 题: Re: DELPHI如何改变焦点(editdbedit)
发信站: 碧海青天 (Tue Nov 3 09:54:01 1998)
转信站: swjtubbs!swjtunews!news.zsu.edu.cn!ustcnews!DUT
出 处: rose.dlut.edu.cn
【 在 stuppy.bbs@rjgc.whu.edu.cn (cat) 的大作中提到: 】
: 本人编一个delphi的程序要按 Enter 则焦点移到下一个 EditdbEdit
: 想问一问除了每一个都编一个程序外还有别的方法吗？
: 谢谢各位大虾........
将FORM1的KeyPreview设为TRUE，然后FROM1的KEYDOWN事件的代码如下：
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_RETURN then
Perform(WM_NEXTDLGCTL, 0, 0);
end;
--
------------------------
真正的程序员喜欢DELPHI
------------------------
※ 来源:．碧海青天 bbs.dlut.edu.cn．[FROM: 202.118.70.209]
--
※ 来源:．BBS 荔园晨风站 bbs.szu.edu.cn．[FROM: 192.168.0.240]
[回到开始]
[上一篇][下一篇]
荔园在线首页 友情链接：深圳大学 深大招生 荔园晨风BBS S-Term软件 网络书店