摘要： procedure TForm7.FormShortCut(var Msg: TWMKey; var Handled: Boolean); var aKey: TShortCut; aShift : TShiftState; i:integer; begin aShift:=KeyDataToShi 阅读全文