//请参考procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);begin case Key of VK_RETURN: if Shift = then ShowMessage('Ctrl+Enter'); end;end;procedure TForm1.FormCreate(Sender: TObject);begin KeyPreview True;end; 查看原帖>>
求采纳
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024