码迷,mamicode.com
首页 > 其他好文 > 详细

动态创建控件

时间:2015-01-09 00:08:48      阅读:174      评论:0      收藏:0      [点我收藏+]

标签:

动态创建控件

var
 sarr: array [0 .. 2] of tedit; // 动态定义组件数组
 But: array of TButton; // 静态定义组件数组

 //动态创建控件:

  SetLength(But, 3); // 设置控件数量
  for i := 0 to High(But) - 1 do
  begin
    But[i] := TButton.Create(Form1);
    But[i].Parent := Form1; // 设置父
    But[i].Name := But + inttostr(i);
    But[i].OnClick := 点击按钮;

But[i].Top :
= i * 30 + 10 end; // 响应动态创建的出来控件的事件 public { Public declarations } procedure 点击按钮(Sender: TObject);// procedure TForm1.点击按钮(Sender: TObject); begin if Sender is TButton then begin if (Sender as TButton).Name = But0 then ShowMessage(你点击了But0); end; end; // 释放控件 procedure TForm1.Button2Click(Sender: TObject); var i: Integer; begin for i := 0 to High(But) do But[i].Free; end;

 

动态创建控件

标签:

原文地址:http://www.cnblogs.com/cgczxc/p/4212133.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!