所有栏目

delphi动态生成控件

已输入 0 字
优质回答
  • vari:Integer;Lab:array of TLabel;beginif length(Lab)> 0 then //判断是否已经创建,如果有就删除beginfor i:=0 to Length(Lab)-1 dobeginFreeAndNil(Lab[i])

    ;end;end;SetLength(Lab,ADOQuery1.FieldCount)

    ;for i :=0 to ADOQuery1.FieldCount-1 dobeginLab[i]:=TLabel.Create(Self);Lab[i].AutoSize:=True;Lab[i].Parent:=Panel1;Lab[i].Top:=Trunc((i div 8)*70)

    ;//每行8个,每个间隔70Lab[i].Left:=Trunc((i mod 8)*70)

    ;Lab[i].Caption:=ADOQuery1.Fields.Fields[i].FieldName;Lab[i].Color:=clRed;end;我已经加了注释。

    2023-10-24 17:40:54
最新问题 全部问题