Delphi 遍历控件 遍历组件
特别在动态创建控件时,有时经常需要遍历控件。 如果知道控件名称,则可以通过FindComponent – 查找(定位)组件,如果不知道的话,只能遍历控件了。 遍历一个Panel上的所有控件: Var i: integer; begin for i:=0 to Panel1.ControlCount do begin // 控件: Panel1.Controls[i] // 自己的业务逻Read More…
– Charlie.Wang's API site
特别在动态创建控件时,有时经常需要遍历控件。 如果知道控件名称,则可以通过FindComponent – 查找(定位)组件,如果不知道的话,只能遍历控件了。 遍历一个Panel上的所有控件: Var i: integer; begin for i:=0 to Panel1.ControlCount do begin // 控件: Panel1.Controls[i] // 自己的业务逻Read More…
根据组件名称,来定位到组件,并且更改组件属性 主要用到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…