![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#6
|
|||
|
|||
|
Можно в несколько колонок (свойство Columns).
Код:
var s4: array[1..4] of string = ('one', 'two', 'three', 'four');
procedure TForm1.Button1Click(Sender: TObject);
var i: Integer;
begin
RadioGroup1.Columns:= 2;
for i:= 1 to 4 do
RadioGroup1.Items.Add(s4[i]);
RadioGroup1.ItemIndex:= 0;
end; |