动态新建iwlabel时,不显示,代码如下
or I:=1 to 10 do
begin
with tiwlabel.Create(formmain2) do //动态新建iwlabel
begin
caption:='mm';
//tcap(query(datamodule1.Components[k]).Fields[j].FieldName));
name:=datamodule1.Components[k].Name+'d'+inttostr(j);
left:=m;
top:=u;
parent:=formmain2;
width:=20;
useframe:=false;
m:=m+25;
end;
end;
or I:=1 to 10 do
begin
with tiwlabel.Create(formmain2) do //动态新建iwlabel
begin
caption:='mm';
//tcap(query(datamodule1.Components[k]).Fields[j].FieldName));
name:=datamodule1.Components[k].Name+'d'+inttostr(j);
left:=m;
top:=u;
parent:=formmain2;
width:=20;
useframe:=false;
m:=m+25;
end;
end;
for I:=1 to ddDataM.djb_sl.RecordCount do
begin
TOP_x:=proc_x;
with TIWRectangle.Create(self) do //??新建iwlabel
begin
Text:=ddDataM.djb_sl.FieldByName('cname').AsString;
Left:=LEFT_x;
Top:=TOP_x;
Parent:=self;
Width:=95;
Height:=22;
Font.Size:=8;
BorderOptions.Color:=clSkyBlue;
BorderOptions.Width:=1;
Name:='project'+IntToStr(I);
proc_x:=Height+TOP_x-2;
Visible:=True;
end;
ddDataM.djb_sl.Next;
end;
將 該 TIWLabel 的 zindex 設高一點!
有時你在 delphi 設計時是 A 疊在 B 上,但看網頁時卻是 B 疊在 A 上,這時候,
改一下 zindex 即可。