DELPHI 动态 创建和释放 多个 EDIT 控件
2015-06-04 09:40
639 查看
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) pnl1: TPanel; btn1: TButton; btn2: TButton; procedure btn1Click(Sender: TObject); procedure btn2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; editm:array of tedit; implementation {$R *.dfm} //动态创建EDIT控件 procedure TForm1.btn1Click(Sender: TObject); var i,d,j:integer; begin d:=0; j:=3; setlength(editm,j); for i:=0 to j-1 do begin editm[i]:=tedit.Create(self); editm[i].Parent:=pnl1; editm[i].Width:=120; editm[i].Height:=20; editm[i].Left:=0; editm[i].Top:=0+d; editm[i].Name:= 'edit'+inttostr(i); editm[i].Text:= 'edit'+inttostr(i); editm[i].Visible:=true; d:=d+20; end; end; //销毁创建的EDIT控件 procedure TForm1.btn2Click(Sender: TObject); var i:Integer; begin for i:=0 to 2 do begin editm[i].free; end; end; end.
相关文章推荐
- delphi XE8 正式破解版下载、注册码
- delphi7及控件安装
- Delphi程序的自我修改
- Delphi中TList类应用
- delphi ocx在IE8下调试不能断点的问题
- Delphi 2007 一段代码手工折叠
- 使用Delphi实现JNI - 实例
- Delphi TcxComboBox控件说明
- 在delphixe7 编写dll中发现的问题s
- 使用Delphi实现JNI - 3
- 使用Delphi实现JNI - 2
- Delphi编译选项
- Delphi 快捷键
- Delphi webservices 传数据
- Delphi TClientDataSet的使用
- Delphi 复习代码
- 使用Delphi实现JNI - 1
- delphi TByteArray 装换成base64
- delphi excel 读取和写入
- Delphi常用快捷键