设置主窗体的keypreview属性为true,然后在onkeydown中加入形如:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key = VK_UP then
begin
// Do Something
end;
if key = VK_DOWN then
begin
// Do Something
end;
........................
end;