Komponenten dynamisch erzeugen

[mfs]

Guten Abend zusammen,

könnte mir bitte jamand dabei einen Tipp geben! Ich beschäftige mich gerade mit dem Dynamischen Erzeugen der Komponenten. Die folgende procedure erzeugt 20 Edits, die will ich aber in einem z.B. GroupBox1 stehen haben und nicht einfach auf dem Form1. Wie soll ich das zuweisen?

Delphi-Quellcode:

private
  FEdits: Array of TEdit;


procedure TForm1.Button1Click(Sender: TObject);
var
  i : Integer;
begin
  SetLength(FEdits, 20);
  for i:=0 to 19 do
  begin
    FEdits[i] := TEdit.Create(self);
    with FEdits[i] do
    begin
      parent := self;
      left := 400;
      top := i * 25;
      name := 'edit'+IntToStr(i);
      text := name;
    end;
  end;
end;

Danke für jede Hilfe..

Gruss mfs

[mkinzler]

In Zeile 15 die GroupBox als .Parent zuweisen

[mfs]

Super.. Es war einfacher, als ich mir gedacht habe :thumb:

Aber das neue Problem ist halt, dass die 20 Edits aus dem GroupBox rauskommen, also der ist zu klein für sie. Gibt es deswegen so eine Eigenschaft für GroupBox wie z.B. ScrollBar bei Memo, dass man sich die "unten stehenden" Edits anschaut, ohne dass vorher im Programm die Grösse vom GroupBox auf die 20 Edits angepasst werden musste?

Oder soll ich lieber was Anderes besser als GroupBox, in dem ich meine Edits erstellen kann, wobei solche Eigenschaften wie ScrollBar funktionieren könnten?

[mkinzler]

Nimm doch ne TScrollBox

[mfs]

Traumhaft..
Herzlichen Dank :-D

Jetzt habe ich was zu tun für die nächsten 4-5 Stunden :wink:


Beste Grüße
mfs