动态生成控件

procedure MyOnClick(Sender:Tobject); //定义过程 procedure TForm1.MyOnClick(Sender:Tobject); begin ShowMessage((Sender as TLabel).Caption+' is clicked'); end; procedure TForm1.Button1Click(Sender:TObject); var i,n:Integer; labela: TLabel; begin for i:=1 to 8 do begin labela:=TLabel.Create(Application); // 或self labela.Parent:=Self; //* labela.Caption:='labela'+IntToStr(i); labela.Top:=50; labela.Height:=20; labela.Width:=50; labela.Left:=i*labela.Width+i*10; labela.OnClick:=MyOnClick; end; end;