怎样删除窗体中的控件？

在窗体中有若干控件，用鼠标选中一个后，怎样用键盘实现把它删除？

解决方案 »

  1.   

    如果这个软件是你做的，你可自己添加Key事件，如果不是你做的，而该软件也没提供该功能，那估计只能自己写钩子监听事件，然后对该窗体的控件发送消息
      

  2.   

    我现在正在做这个软件，要求实现这个功能。
    怎么添加Key事件，给谁添加，往哪里加？
      

  3.   

    不显示就是了
    又或者
    全部使用动态Create的组件http://lysoft.7u7.net
      

  4.   

    干嘛非要斩草除根呢，设置visible为false
      

  5.   

    自己写的软件就简单了，TForm1 = class(TForm)
        Button1: TButton;
        Button2: TButton;
        Memo1: TMemo;
        procedure FormCreate(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
        procedure ComponentKeyUp(Sender: TObject; var Key: Word;Shift: TShiftState);
      end;procedure TForm1.ComponentKeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    begin
      if (Key=46)then
        Sender.Destroy;
    end;procedure TForm1.FormCreate(Sender: TObject);
    begin
      Button1.OnKeyUp:=ComponentKeyUp;
      Button2.OnKeyUp:=ComponentKeyUp;
      Memo1.OnKeyUp:=ComponentKeyUp;
    end;
      

  6.   

    可以设置该控件的VISIBLE为FALSE；