[stakado]

Здравствуйте!
Есть RadioGroup, элементы в неё добавляются динамически. При добавлении элементы располагаются по середине РадиоГруппы.
Каким образом сделать так, чтобы при добавлении элементы располагались вверху РадиоГруппы.
Для наглядности цепляю картники, 1я - как есть, 2я - как хочется (отредактирована в пейнте).
Как есть:

Как хочется:

[Pyro]

можно checklistbox сделать

[NumLock]

создавать нужное количество TRadioButton на TGroupBox вместо TRadioGroup.

[stakado]

Сообщение от NumLock

создавать нужное количество TRadioButton на TGroupBox вместо TRadioGroup.

И при нажатии на одну из TRadioButton отключать вручную ту, которая была нажата ранее?
Или есть какие-то более простые методы?

[NumLock]

ну если так хочется... а по умолчанию будет автоматом переключать.

[dr. F.I.N.]

Радиогруппа (TRaduoGroup) по сути и есть Групбокс (TGroupBox). Можете даже исходник глянуть. Если не хочется сочинять решение с компонентами самому, то:
1. У Радиогруппы есть св-во Controls[Index:Integer] в котором хранятся все пункты (а-ля TRadioButton).
2. При добавлении новой - высота каждой РадиоКнопки равна (Высота клиентской области Радиогруппы)/(Количество радиокнопок)
3. С этими кнопками можно работать через Controls - выставить высоту компонента и указать TOP.
Например (в радиогруппе 2 элемента):

Код:

RadioGroup1.Controls[0].Height := Canvas.TextHeight('0');
  RadioGroup1.Controls[1].Height := Canvas.TextHeight('0');
  RadioGroup1.Controls[1].Top := RadioGroup1.Controls[0].Top + RadioGroup1.Controls[0].Height;

[stakado]

Сообщение от dr. F.I.N.

Радиогруппа (TRaduoGroup) по сути и есть Групбокс (TGroupBox). Можете даже исходник глянуть. Если не хочется сочинять решение с компонентами самому, то:
1. У Радиогруппы есть св-во Controls[Index:Integer] в котором хранятся все пункты (а-ля TRadioButton).
2. При добавлении новой - высота каждой РадиоКнопки равна (Высота клиентской области Радиогруппы)/(Количество радиокнопок)
3. С этими кнопками можно работать через Controls - выставить высоту компонента и указать TOP.
Например (в радиогруппе 2 элемента):

Код:

RadioGroup1.Controls[0].Height := Canvas.TextHeight('0');
  RadioGroup1.Controls[1].Height := Canvas.TextHeight('0');
  RadioGroup1.Controls[1].Top := RadioGroup1.Controls[0].Top + RadioGroup1.Controls[0].Height;

Спасибо большое, предложенное Вами решение - то, что мне было нужно!