Delphi动态创建控件

weixin_30642561

于 2012-03-10 15:59:00 发布

阅读量159

点赞数

原文链接：http://www.cnblogs.com/hssbsw/archive/2012/03/10/2389203.html

版权

   TForm1.BitBtn1Click(Sender:   TObject);   
     
      i,d,j:integer;   
      editm:tedit;   
     
  d:=;   
  j:=strtoint(num.text);   
     i:=      j      
     
      editm   :=tedit.Create(self);   
         editm      
         
          editm.Parent:=ScrollBox1;   
          editm.Width:=;   
          editm.Height:=;   
          editm.Left:=;   
          editm.Top:=+d;   
          editm.Name:=+inttostr(i);   
          editm.Text:=+inttostr(i);   
          editm.Visible:=true;   
          d:=d+;   
      ;   
  ;

给动态创建的Edit控件动态添加OnChange事件：

   TForm1.EditChange(Sender:   TObject);   
     
      showmessage(Tedit(Sender).text);   
  ;

   TForm1.EditChange(Sender:   TObject);   
     
      showmessage(Tedit(Sender).text);   
  ;   
    
     TForm1.Button1Click(Sender:   TObject);   
     NewEdit:Tedit;   
     
        NewEdit:=Tedit.Create();   
        NewEdit.Parent:=self;   
        NewEdit.SetBounds(,,,);   
        NewEdit.OnChange:=EditChange;   
  ;

转载于:https://www.cnblogs.com/hssbsw/archive/2012/03/10/2389203.html