动态建立组件

这是《mastering delphi 6》P42的一个实例，创建一个空窗体，并往窗体的onMouseDown对像加入处理程序：

var

  btn:TButton;

begin

  btn:=TButton.create(self);

  btn.parent:=self;

  btn.left:=x;

  btn.top:=y;

  btn.width:=btn.width+50;

  btn.caption:=format('Button at %d %d',[x,y]);

end;

实际上空窗体的话该程序会产生一个btn未定义的错误，要让程序运行，须在窗体放入一个button!