2个问题：1、delphi中有没有整体注释和反注释功能？2、Sender,Self,Owner和parent的用法？

Question

1、我的意思不是用{}来整体注释和反注释。以前用pb的时候有这样的功能，就是用鼠标连续选择多行，然后点击一个专用工具按钮就可以整体注释和反注释，不论选择的行中是否已经注释。（当然里面有/**/或{}的注释就无法反注释了，反注释只针对单行注释）这样的好处是当你调试一个整段代码时切换非常方便。
2、这四个对象中我知道self是引用自身的一个指针，类似java和pb中的this对象。
但当我想从子对象引用父对象时不知道有没有类似pb中的parent对象。我试了delphi中parent和pb的用法不一样。
例子：我想封装一个关闭窗口的自定义组件按钮，在onclick事件中实现关闭自身所在的窗口。这样就不用每个窗口重复设置关闭按钮。我想这样写：parent.close;  以前pb就是这样表示的，但delphi不行，但我想一定有类似的方法。恳请高手指教！
另外希望有老手帮我解释一下Sender,Owner和parent的用法。
本人系新从pb转向delphi，非常感谢您的指教。

Answer 1

1.没有
2.你可以用继承来实现
sender是一个tobject类,通常是指某个触发事件的对象
owner 所有者
parent 父对象

Answer 2

创建一个空窗体，上面直接放三个按钮，procedure CloseForm(Sender: TObject);
begin
  if Sender is TForm then
    TForm(Sender).Close;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  CloseForm(Self);
end;procedure TForm1.Button2Click(Sender: TObject);
begin
  CloseForm(TControl(Sender).Parent);
end;procedure TForm1.Button3Click(Sender: TObject);
begin
  CloseForm(TComponent(Sender).Owner);
end;