在窗体的keyDown上写入了 按键响应事件，运行你会发现没反应…？ 解决办法是将KeyPreview设置为True或者代码 procedure TForm1.FormCreate(Sender: TObject); begin   Self.KeyPreview := True; end;