cb:array of checkBox;for IntIndex:=0 to 4 do
begin
cb[IntIndex]:=TcxCheckBox.Create(From1);
cb[IntIndex].Left := 40;
cb[IntIndex].top := 30+ IntIndex*25;
cb[IntIndex].Width:=120;
cb[IntIndex].Height:=30;
cb[IntIndex].Caption :=ADOQuery1.FieldByName('RNAME').AsString;
cb[IntIndex].Visible:=true;
ADOQuery1.Next;
end;为什么执行时候窗体不出来checkbox啊>?
begin
cb[IntIndex]:=TcxCheckBox.Create(From1);
cb[IntIndex].Left := 40;
cb[IntIndex].top := 30+ IntIndex*25;
cb[IntIndex].Width:=120;
cb[IntIndex].Height:=30;
cb[IntIndex].Caption :=ADOQuery1.FieldByName('RNAME').AsString;
cb[IntIndex].Visible:=true;
ADOQuery1.Next;
end;为什么执行时候窗体不出来checkbox啊>?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货