procedure TForm1.Edit2KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key=VK_UP then Edit1.SetFocus else if Key=VK_DOWN then Edit3.SetFocus; end;
if Key = vk_Down then form1.SelectNext(activecontrol,true,true) else if Key = vk_up then form1.SelectNext(activecontrol,false,true) 这么写是不对的吗?
Shift: TShiftState);
begin
if Key=VK_UP then
Edit1.SetFocus
else if Key=VK_DOWN then
Edit3.SetFocus;
end;
form1.SelectNext(activecontrol,true,true)
else
if Key = vk_up then
form1.SelectNext(activecontrol,false,true) 这么写是不对的吗?