用Delphi简单实现创建控件数组

本文介绍如何使用Delphi实现当编辑框获得或失去焦点时改变其背景颜色,并提供了两种批量创建编辑框的方法:一种是通过循环直接创建并设置属性;另一种是利用控件数组进行创建。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

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;

 

评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值