我测试将Form上所有label放入Flist中,代码如下:
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
flist:Tlist;
begin
try
flist:=Tlist.Create;
for i:=0 to componentcount-1 do
begin
if components is TLabel then
flist.Add(components);
end;
Tlabel(flist.Items[0]).caption:='hello';
finally
end;
end;
现在编译通过了,就是想问问为什么在Tlabel(flist.Items[0])后写“.”没有给出属性方法选择框呢?是不是代码还是有什么问题.
