RadioButtons und Checkboxen zur Laufzeit erstellen.

[RWarnecke]

Ich habe jetzt meinen Code natürlich dementsprechend abgeändert :

Delphi-Quellcode:

{-- Erstellen der Group-Box für die Radio-Buttons --} 
  TableKeys         := TGroupBox.Create(self); 
  TableKeys.Parent  := CreateTableScrollBox; 
  TableKeys.Name    := 'RadioGroup' + IntToStr(counter); 
  TableKeys.Caption := ''; 
  TableKeys.Left    := 795; 
  TableKeys.Top     := kompotop - 2; 
  TableKeys.Height  := 25; 
  TableKeys.Width   := 94; 
{-- Erstellen des Radio-Buttons für den Primaryschlüssel --} 
  FieldPrimary         := TRadioButton.Create(self); 
  FieldPrimary.Parent  := FindComponent('RadioGroup' + IntToStr(counter)) As TWinControl;
  FieldPrimary.Name    := 'RBFieldPrimary' + IntToStr(counter); 
  FieldPrimary.Caption := ''; 
  FieldPrimary.Top     := kompotop; 
  FieldPrimary.Left    := radioprimary_left; 
  FieldPrimary.Height  := radiocheck_height; 
  FieldPrimary.Width   := radiocheck_wdith; 
{-- Erstellen des Radio-Buttons für den Index --} 
  FieldIndex         := TRadioButton.Create(self); 
  FieldIndex.Parent  := FindComponent('RadioGroup' + IntToStr(counter)) As TWinControl;
  FieldIndex.Name    := 'RBFieldIndex' + IntToStr(counter); 
  FieldIndex.Caption := ''; 
  FieldIndex.Top     := kompotop; 
  FieldIndex.Left    := radioindex_left; 
  FieldIndex.Height  := radiocheck_height; 
  FieldIndex.Width   := radiocheck_wdith; 
{-- Erstellen des Radio-Buttons für den Unique --} 
  FieldUnique         := TRadioButton.Create(self); 
  FieldUnique.Parent  := FindComponent('RadioGroup' + IntToStr(counter)) As TWinControl;
  FieldUnique.Name    := 'RBFieldUnique' + IntToStr(counter); 
  FieldUnique.Caption := ''; 
  FieldUnique.Top     := kompotop; 
  FieldUnique.Left    := radiounique_left; 
  FieldUnique.Height  := radiocheck_height; 
  FieldUnique.Width   := radiocheck_wdith; 
{-- Erstellen des Radio-Buttons für den --- --} 
  FieldStrich         := TRadioButton.Create(self); 
  FieldStrich.Parent  := FindComponent('RadioGroup' + IntToStr(counter)) As TWinControl;
  FieldStrich.Name    := 'RBFieldStrich' + IntToStr(counter); 
  FieldStrich.Caption := ''; 
  FieldStrich.Checked := True; 
  FieldStrich.Top     := kompotop; 
  FieldStrich.Left    := radioline_left; 
  FieldStrich.Height  := radiocheck_height; 
  FieldStrich.Width   := radiocheck_wdith;

Wenn ich den Code so ausführe, wird nur die erste GroupBox mit RadioButtons gefüllt. Jede einzelne Zeile mit GroupBoxen hat Ihre eigene Funktion. Deshalb brauche ich diese GroupBoxen.

Edit:
Manchmal sollte man doch Schluss machen, wenn man müde ist, so wie gestern Abend. Ich habe falsche Werte für die Eigenschaft Top gesetzt. Damit konnten nur die RadioButtons in der ersten GroupBox angezeigt werden.