怎么保存控件数组

不用就会忘 2016-04-29 11:32:21

panel下有多个子控件，怎么像数组那样可以对这些子控件按left或top大小进行排序

...全文

296 2 打赏收藏转发到动态举报

写回复

用AI写文章

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

oushengfen 2016-05-04

打赏
举报

for I := 0 to DayOneLevelbsSkinTabSheet.ControlCount - 1 do {1、日勤(一级)} if (DayOneLevelbsSkinTabSheet.Controls[I] is TbsSkinSpeedButton) then begin if TbsSkinSpeedButton(DayOneLevelbsSkinTabSheet.Controls[I]).Hint = '' then TbsSkinSpeedButton(DayOneLevelbsSkinTabSheet.Controls[I]).Caption := '未定义' else FindRecord(TbsSkinSpeedButton(DayOneLevelbsSkinTabSheet.Controls[I]).Hint, TbsSkinSpeedButton(DayOneLevelbsSkinTabSheet.Controls[I]).Tag, TbsSkinSpeedButton(DayOneLevelbsSkinTabSheet.Controls[I])); if (DayOneLevelbsSkinTabSheet.Controls[I] is TLabel) then begin TLabel(DayOneLevelbsSkinTabSheet.Controls[I]).Font.Size := fontsiz; //TLabel(DayOneLevelbsSkinTabSheet.Controls[I]).Font.Color := clBtnText; end; end;

oushengfen 2016-05-04