Решил попробовать такую штуку: в дизайнере на форме рисую одну радиогруппу с четырьмя кнопками. Группу и кнопки делаю невидимыми.
Потом прямо в коде пытаюсь создавать свои группы:
- Код: Выделить всё
TForm1 = class(TForm)
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
RadioButton3: TRadioButton;
RadioButton4: TRadioButton;
RadioGroup1: TRadioGroup;
StatusBar1: TStatusBar;
procedure FormCreate(Sender: TObject);
private
{ private declarations }
public
zurray:array[1..10]of ^TRadioGroup;
{ public declarations }
end;
В цикле при открытии формы пытаюсь создавать эти группы и ставить их на положенные места:
- Код: Выделить всё
procedure TForm1.FormCreate(Sender: TObject);
var a:byte;
begin
for a:=1 to 10 do
begin
new(zurray[a]);
with zurray[a]^ do
begin
create(Form1);
top:=radiogroup1.Top;
visible:=true;
left:=radiogroup1.left+radiogroup1.width*(a+1);
end
end;
end;
Так как же правильно создавать новые контролы на форме в реалтайме?
Спасибо.
