procedure TForm1.Button1Click(Sender: TObject);
var
I: integer;
begin
for i:=0 to report.ComponentCount-1 do
begin
if components[i] is TppLabel then
Showmessage(TppLabel(Components[i]).Name);
else if components[i] is TppMemo then
Showmessage(TppLabel(Components[i]).Name);
End;
end;我明明摆了许多TppLabel控件,可是循环总是进不去
我的这里的Report是Tppreport名称谢了先
var
I: integer;
begin
for i:=0 to report.ComponentCount-1 do
begin
if components[i] is TppLabel then
Showmessage(TppLabel(Components[i]).Name);
else if components[i] is TppMemo then
Showmessage(TppLabel(Components[i]).Name);
End;
end;我明明摆了许多TppLabel控件,可是循环总是进不去
我的这里的Report是Tppreport名称谢了先
这是我原来的一段代码
procedure SetLabelCaption(Name,Value:String);
var Temp:TComponent;
begin
Temp:=Fm_Main.FindComponent(Name);
if Temp<>nil then begin
(Temp As TppLabel).Caption:=Value;
end;
end;