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名称谢了先