ActionList中的EditDelete的代码怎么写？

不用ActionList中的标准Edit中的EditDelete，自己写的话，代码如何写？
谢谢！

解决方案 »

  1.   

    我要一个菜单控制所有Edit,Memo,DBEdit,DBMemo的事件。
    谢谢！
      

  2.   

    我的意思是用鼠标选中某个字或某行字的时候，再点击菜单的“删除”即可将选中的内容删除。像ActionList中的EditDelete一样的功能。
      

  3.   

    因为你要控制的控件都派生于TCustomEdit，所以你可以这么写！
    var i: integer;
    begin
      for i := 0 to ComponentCount - 1 do
      begin
        if Components[i] is TCustomEdit then
          TCustomEdit(Component[i]).SelText := '';
      end;
    end;
      

  4.   

    TCustomEdit(ActiveControl).SelText := '';
      

  5.   

    TCustomEdit(ActiveControl).SelText := '';
    这一句可能有问题，万一ActiveControl不是TCustomEdit的派生类，而搂住点击了按钮，那岂不是类型转换错误了！
      

  6.   

    呵呵,我这样写是不会出错的,老实说我是看了Delphi的源码,并换了个花样而已^_^
    下面的Delphi本身的实现方法：
    (Target as TCustomEdit).ClearSelection
      

  7.   

    Target声明时就是一个TObject对象