我在panel1中放置了dbedit1 dbedit2
在panel2中放置了dbedit3 dbedit4
在form的onkeydown事件
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = vk_down then { 如果按下了下游标键 }
begin
key:=0;
Perform(WM_NEXTDLGCTL, 0, 0); { 移动到下一个控制 }
end;
end;
为什么执行后,用下游标键只可以从dbedit1至dbedit2,再用下游标键又回到dbedit1,而不回dbedit3呢
在form属性设keypreview=true;
请高手帮我!!!!
在panel2中放置了dbedit3 dbedit4
在form的onkeydown事件
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = vk_down then { 如果按下了下游标键 }
begin
key:=0;
Perform(WM_NEXTDLGCTL, 0, 0); { 移动到下一个控制 }
end;
end;
为什么执行后,用下游标键只可以从dbedit1至dbedit2,再用下游标键又回到dbedit1,而不回dbedit3呢
在form属性设keypreview=true;
请高手帮我!!!!
Shift: TShiftState);
begin
if Key = vk_down then { 如果按下了下游标键 }
begin
key:=0;
dbEdit3.setFocus();
end;
end;
请各位帮忙呀