RadioGroup zur Laufzeit

[Tpercon]

Hier mla nen Beispiel:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i, y: integer;
    myedit: TEdit;
begin
  for i := 0 to 35 do begin
    if i mod 10 = 0 then y := 20
    else inc (y, 20);
    myedit := TEdit.Create(nil);
    myedit.Parent := TWinControl(Form1);
    myedit.Left := i div 10 * 50;
    myedit.Top := y;
    myedit.Height := 20;
    myedit.Width := 40;
    myedit.Name := 'Edit'+InttoStr(i);
    myedit.Text := 'Edit'+InttoStr(i);
  end;
end;