RadioGroup zur Laufzeit

[Privateer3000]

Hiho,
kann mir bitte jemand ein praktisches Beispiel
zum erzeugen und benennen von Radio's in einer
Radiogroup schreiben?
Zusaätzlich würde mich ein Beispiel zum Erzeugen von
TEdits interessieren. Und zwar sollten zB. 10 untereinander
als Spalte danach eine neue Spalte erzeugt werden.

Danke für Eure Hilfe

[alcaeus]

Ne Radiogroup ist fast gleich wie eine ListBox: In der TStrings-Eigenschaft Items sind die einzelnen Radios abgespeichert (Jede Zeile stellt einen Button dar). Um einen Radio hinzuzufügen musst du nur schreiben:

Delphi-Quellcode:

RadioGroup1.Items.Add('Button');

Mit ItemIndex kannst du dann ein Radio auswählen.

[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;

[Privateer3000]

Vielen Dank Leute!
Auf Euch ist immer Verlass 8)

[Luckie]

Warum der Cast nach TWinControl beim Parent? Form1 sollte doch schon eins sein? :?
Diese Zeile ist auch recht interessant:

Delphi-Quellcode:

myedit.Left := i div 10 * 50;

Wie wäre es mit:

Delphi-Quellcode:

myedit.Left := i div 5;

Oder hat der div-Operator eine höhere Priorität als *?