5,388
社区成员
发帖
与我相关
我的任务
分享
//初始化label数组
if Length(LabelArry)>0 then
begin
for i:=0 to Length(LabelArry)-1 do
begin
FreeAndNil(LabelArry[i]);
end;
end;
setlength(LabelArry,SimKGZT[0]);
for i:=0 to SimKGZT[0]-1 do
begin
LabelArry[i]:=TLabel.Create(self);
end;
for i:=0 to SimKGZT[0]-1 do
begin
LabelArry[i].Parent:=self;
LabelArry[i].Left:=SimKJZB[i][0];
LabelArry[i].Top:=SimKJZB[i][1];
LabelArry[i].Width:=30;
LabelArry[i].Height:=73;
LabelArry[i].AutoSize:=False;
LabelArry[i].Name:='lb'+inttostr(i+1);
LabelArry[i].Caption:='';
LabelArry[i].Transparent:=True;
LabelArry[i].Cursor:=crHandPoint;
LabelArry[i].Color:=clBlack;
LabelArry[i].Tag:=1;
LabelArry[i].Hint:='开/关';
LabelArry[i].ShowHint:=True;
LabelArry[i].Visible:=True;
LabelArry[i].OnClick:=btnClick;
end;