• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

Delphi动态创建组件,单个创建、单个销毁

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

效果图如下:

实现部分代码如下:

var
  rec: Integer = 0;  //记录增行按钮点击次数

implementation

{$R *.dfm}


//动态释放单个组件内存,即销毁组件
procedure TForm1.DeleteRow(Sender: TObject);
begin
  if rec < 1 then
    Exit
  else
  begin
    TPanel(Panel1.Controls[rec]).Free;  //释放单个控件内存
    TComboBox(Panel2.Controls[rec]).Free;
    TEdit(Panel3.Controls[rec]).Free;
    Dec(rec);  //增行按钮次数递减
  end;
end;

//动态创建单个组件
procedure TForm1.AddRow(Sender: TObject);  
var
  e:Integer;  //记录当前组件总数量
  edt: TEdit;
  pnl: TPanel;
  combo: TComboBox;
begin
  Inc(rec);  //按钮点击次数
  e := Panel3.ControlCount;   //edit数量
  //动态创建Edit
  edt := TEdit.Create(Panel3); 
  edt.Parent := Panel3;
  edt.Left := Edit1.Left;
  edt.Top := Edit1.Top + (Edit1.Height + 3)*e;
  edt.Width :=Edit1.Width;
  edt.Height := Edit1.Height;
  edt.Text := 'Edit' + IntToStr(rec + 1);
  edt.Show;
  //Panel、ComboBox创建方法与Edit相同
 
end;

  


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
Matlab设置中文help发布时间:2022-07-22
下一篇:
MATLAB和C语言混合编程-----Matlab7.0编译器设置发布时间:2022-07-18
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap