如何让选中的图形不能通过按“DEL”键删除？

默认情况下。选中一个图形后，按DEL键将会删除这个图形。有什么方法让其不能删除呢？
图形的事件里和属性里都没有。

你可以参看“Default Keyboard Navigation”章节，Delete键默认对应的是DeleteShape操作。
想修改的话，重新设置InputMap即可。
例如：

1. private void Form1_Load(object sender, System.EventArgs e)
   
2. {
   
3. 
   
4.    FarPoint.Win.Spread.InputMap im = new FarPoint.Win.Spread.InputMap();
   
5. 
   
6.    // Define the operation of pressing Enter key in cells not being edited as "Move to the next row".
   
7. 
   
8.    im = fpSpread1.GetInputMap(FarPoint.Win.Spread.InputMapMode.WhenFocused);
   
9. 
   
10.    im.Put(new FarPoint.Win.Spread.Keystroke(Keys.Enter, Keys.None), FarPoint.Win.Spread.SpreadActions.MoveToNextRow);
    
11. 
    
12.    // Define the operation of pressing Enter key in cells being edited as "Move to the next row".
    
13. 
    
14.    im = fpSpread1.GetInputMap(FarPoint.Win.Spread.InputMapMode.WhenAncestorOfFocused);
    
15.    im.Put(new FarPoint.Win.Spread.Keystroke(Keys.Enter, Keys.None), FarPoint.Win.Spread.SpreadActions.MoveToNextRow);
    
16. }
    

复制代码

感谢

1.         '设置选中图形按DEL键不删除图形
   
2.         Dim im As FarPoint.Win.Spread.InputMap
   
3.         im = frmSheets.fpsMain.GetInputMapWhenShapeHasFocus()
   
4.         Dim k As New FarPoint.Win.Spread.Keystroke(Keys.Delete, Keys.Delete)
   
5.         im.Put(k, FarPoint.Win.Spread.SpreadActions.DeleteShape)
   
6.         frmSheets.fpsMain.SetInputMapWhenShapeHasFocus(im)
   

复制代码

我这样写的，不起效果。为啥？

1. Dim k As New FarPoint.Win.Spread.Keystroke(Keys.none, Keys.Delete)
   

复制代码

我这样写的，不起效果。为啥？

1. '设置选中图形按DEL键不删除图形
   
2. 
   
3.         Dim im As FarPoint.Win.Spread.InputMap
   
4. 
   
5.         im = frmSheets.fpsMain.GetInputMapWhenShapeHasFocus()
   
6. 
   
7.         Dim k As New FarPoint.Win.Spread.Keystroke(Keys.none, Keys.Delete)
   
8. 
   
9.         im.Put(k, FarPoint.Win.Spread.SpreadActions.DeleteShape)
   
10. 
    
11.         frmSheets.fpsMain.SetInputMapWhenShapeHasFocus(im)
    
12. 
    

复制代码

你这段代码是设置Delete键执行DeleteShape操作。逻辑写反了。

这样写也不行呀。。。郁闷。。。
我只是想做一个像EXCEL一样的分页标记。。。
希望这个控件的打印功能再加强一下就好了。

1.         '设置选中图形按DEL键不删除图形
   
2.         Dim im As FarPoint.Win.Spread.InputMap
   
3.         im = frmSheets.fpsMain.GetInputMapWhenShapeHasFocus()
   
4.         Dim k As New FarPoint.Win.Spread.Keystroke(Keys.None, Keys.Delete)
   
5.         im.Put(k, FarPoint.Win.Spread.SpreadActions.DeleteShape)
   
6.         frmSheets.fpsMain.SetInputMapWhenShapeHasFocus(im)
   

复制代码

设置好打印页面后，能自动分页，有这个功能就好了。

1. Keystroke的两个参数，第一个是按键，第二个是功能键。你写错了，应该是

1. Dim k As New FarPoint.Win.Spread.Keystroke(Keys.Delete，Keys.None)

复制代码

2. 你将k设置为DeleteShape行为。可是你是想要该k不能删除shape，也就是不执行DeleteShape行为。应该这样写

1. im.Put(k, FarPoint.Win.Spread.SpreadActions.None)

复制代码