1:将form的keypress的属性设为:true2:form的keydown事件代码:procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;Shift: TShiftState);beginif (key=VK_down) then begin key:=0; sendMessage(Handle,WM_NEXTDLGCTL,0,0); end else if key=VK_up then
begin
key:=0;
SendMessage(Handle,WM_NEXTDLGCTL,1,0);...
|