Показать сообщение отдельно
  #6  
Старый 20.01.2012, 19:02
Аватар для dr. F.I.N.
dr. F.I.N. dr. F.I.N. вне форума
I Like it!
 
Регистрация: 12.12.2009
Адрес: Россия, г. Новосибирск
Сообщения: 663
Версия Delphi: D6/D7
Репутация: 26643
По умолчанию

Радиогруппа (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;
__________________
Грамотно поставленный вопрос содержит не менее 50% ответа.
Грамотно поставленная речь вызывает уважение, а у некоторых даже зависть.
Ответить с цитированием