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
相关问答：
就是一个服务端和一个客户端，里边有一些共用单元 ，我在 工程的SEARCH PATH里设置的路径，
里边有个结构体，我在服务端打开，加了成员，但是我在客户端其他单元访问不到我新加的，我在客户端打开那个单元，确实加� ......
返回的内容是如下代码,怎么能渠道2b?
<p class="text1">1a </p>
<p class="text1">2b </p>
<p class="text1">3c </p>
<p cl ......
t5:=' 1=1 ';
if CheckBox5.Checked then
t5:=' 生日>=#'+DateToStr(DateTimePicker1.Date)+'# and 生日<=#'+DateToStr(DateTimePicker2.Date)+'#';
关于事件的格式和界定符，access,sq ......
请问哪位大神能帮我看看我这句转得对不对 老是会出错。
vc:
C/C++ code:
DWORD WINAPI debugProc(LPVOID lpParameter )
{
if(debuger1.caozuo==1)
{
......
