Inhalt eines dynamisch erstellen Richedits drucken

[bitsetter]

Hi,

geht es so?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

  procedure FindControl(WinContr: TWinControl);
  var
    i : integer;
  begin
    for i:= 0 to WinContr.ControlCount- 1 do
    begin
      if WinContr.Controls[i] is TRichEdit then
        showmessage(TRichEdit(WinContr.Controls[i]).Name);//TRichEdit(WinContr.Controls[i]).Print('Hallo');
      if WinContr.Controls[i] is TWinControl then
        FindControl(TWinControl(WinContr.Controls[i]));
    end;
  end;

begin
  FindControl(pagecontrol1.ActivePage);
end;