Eine bestimmte Anzahl von RichEdits erzeugen

[Steve9825679]

n'Abend!

Hier is a Beispielcode:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var R : array of TRichEdit;
    StrArr : array of String;
    StrAnz : Integer;

    LfVar : Integer;
begin
  StrAnz:=10;
  setlength(StrArr, StrAnz);
  for LfVar:=0 to (high(StrArr)-1) do
    StrArr[LfVar]:='Ich bin String Nummer '+IntToStr(LfVar);

  setlength(R, StrAnz);
  for LfVar:=0 to (high(R)-1) do
  begin
    R[LfVar]:=TRichEdit.Create(nil);
    R[LfVar].Parent:=Self;
    R[LfVar].Name:='RichE'+IntToStr(LfVar);
    R[LfVar].Left:=4+60*LfVar;
    R[LfVar].Top:=40;
    R[LfVar].Width:=55;
    R[LfVar].Height:=60;
    R[LfVar].Text:=StrArr[LfVar];

    R[LfVar].Visible:=true;
    R[LfVar].Invalidate; //zum Neuzeichnen
  end;
  Self.Invalidate;

end;

Liebe Grüße, Stefan