用Delphi简单实现创建控件数组
来源:互联网 发布:昆明最新网络咨询招聘 编辑:程序博客网 时间:2024/05/21 09:04
private
procedure EdtEnter(sender: TObject);
procedure EdtExit(sender: TObject);
end;
procedure Tfrm.EdtEnter(sender: TObject);
begin
TEdit(sender).Color:=clInfoBk;//当EDIT获得焦点时的颜色
end;
procedure Tfrm.EdtExit(sender: Tobject);
begin
TEdit(sender).Color:=clWindow;//失去焦点时的颜色
end;
//批量创建控件
var
i:integer;
begin
for i:=1 to 10 do
begin
with TEdit.Create(Self) do
begin
Name:='edt'+IntToStr(i);
Parent:=self;
Width:=75;
Height:=24;
Top:=i*32;//位置
Left:=10;
Text:='';
OnEnter:=EdtEnter;
OnExit:=EdtExit;
end;
end;
//控件数组
var
i:integer;
edt:array[0..9] of TEdit;
begin
for i:=1 to 10 do
begin
edt[i]:=TEdit.Create(Self);
with edt[i] do
begin
Name:='edt'+IntTostr(i);
Parent:=Form1;
Width:=75;
Height:=24;
Top:=i*32;//位置
Left:=10;
end;
end;
- 用Delphi简单实现创建控件数组
- DELPHI也可以实现控件数组,用定义数组变量实现控件数组
- DELPHI也可以实现控件数组,用定义数组变量实现控件数
- 在Delphi中巧改窗体文件实现控件数组
- 用pyqt5创建简单控件
- 用Delphi实现简单的不规则窗体
- 电子白板简单实现delphi
- delphi实现web activex控件
- Delphi实现飞信控件
- Delphi实现飞信控件
- Delphi创建ActiveX控件,实现安全接口及无界面代码
- 在delphi中动态创建控件
- Delphi中控件的动态创建
- delphi vcl win32控件的创建说明
- Delphi控件cxGrid 如何动态创建列?
- Delphi删除动态数组控件的方法
- 用Delphi标准控件实现Access数据库的导入导出
- 用Delphi标准控件实现Access数据库的导入导出
- 动态绑定dropdownlist
- 回家了。
- Josephu 问题 (add pin number)
- c#UBB完整版
- 一个判断session是否过期的小技巧
- 用Delphi简单实现创建控件数组
- 《深入浅出Hibernate》(2)实体层次分析,数据关联等
- 似水年华_5/2
- Tomcat详解
- 忏悔
- IT双节棍
- 获取星期几的函数
- 面临大四选择的感想
- showModalDialog()、showModelessDialog()方法使用详解