Delphi 遍历控件 遍历组件
特别在动态创建控件时，有时经常需要遍历控件。 如果知道控件名称，则可以通过FindComponent – 查找(定位)组件，如果不知道的话，只能遍历控件了。 遍历一个Panel上的所有控件： Var i: integer; begin for i:=0 to Panel1.ControlCount do begin // 控件: Panel1.Controls[i] // 自己的业务逻Read More…
标签：FindComponent
Delphi FindComponent – 查找(定位)组件
根据组件名称，来定位到组件，并且更改组件属性 主要用到Delphi FindComponent 函数 //循环将RzBackground1 – #12的图片改为Sample中的图片 for I := 1 to 12 do begin TRzBackground(FindComponent('RzBackground'+IntToStr(I))).Texture := RzBackground_Sample.Texture; end; //将组件名为ComponentName的标签名改为DMRead More…