delphi上下键切换焦点
请教各位大侠：
Delphi中用上下键或回车键切换输入框：
在edit1的OnkeyPress事件里：
if (key in[#13,#38]) then
begin
edit2.SetFocus ;
end;
为什么按回车键可以，而上键不可以？
=！！！！
Delphi(Pascal) code:
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key in [38,40] then
Edit2.SetFocus;
end;
Delphi(Pascal) code:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key=#13 then
self.Edit2.SetFocus;
end;
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key=40 then
self.Edit2.SetFocus;
end;
用FormKeyDown可以,设Form的KeyPreview为true
我一直用的程序:
上/下键进入上/下控件,回车进入下一个,ESC关闭Form
Delphi(Pascal) code:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
case key of
vk_down,vk_up:if activecontrol.tag=0 then
selectnext(activecontrol,key=vk_down,true);
13: if activecont
相关问答：
delphi 手动装载驱动文件提示：
RROR (1058): The driver is marked as disabled (Start=4) in its service database entry.
是不是这个驱动必需要用INF来安装。。用自带的INF来装是正常的。用手动装载就提示如上� ......
hongqi162、windindance
此2人长期不在线，特别是windindance
更换有能力的人上
hongqi162还是经常上来转转的
引用
更换有能力的人上
其实也不是什么能力的原因，主要可能是时间问题吧
工作的还要上班，学� ......
程序使用的是Orcal数据库，想定期（每季度）对数据库进行备份，没啥头绪，请问应该怎么弄？
有什么特殊要求吗，比如要前端界面？
一般用数据库自带的“计划任务”配置一下就够了
没有什么特殊要求。例如，只要� ......
各位好！！
假设我有两个text文件
一个名叫 1.text
内容：
I like PC....
另外一是2.text
内容:
function yk as string
endfunction
globals
endglobals
***********************分界线********** ......
老师布置了一个课题，需要用Delphi做一个影院售票管理系统，但是我们还没有学过Delphi，各位高手能否指点一下，如何进行系统设计，时间比较紧急，谢谢啊
我也不懂，也想学！
我也是啊，感觉Delphi挺好的，现 ......
