Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Компонент RadioGroup

Автор: Leliks 3.11.2007, 21:51

Подскажите пожалуйста как имея две RadioGroupы включать переключатели в одной групе и в другой? smile

Автор: kemiisto 3.11.2007, 22:02

А поподробнее можно? Что значит

Цитата

включать переключатели в одной групе и в другой

Автор: Leliks 3.11.2007, 22:17

Есть две группы переключятелей включаю переключать в одной групе, а е сли включаю в другой то то в первой он отключается.

Автор: ivan219 3.11.2007, 22:24

Если правильно понял то:

Код


procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
 RadioGroup2.ItemIndex := -1;
end;

procedure TForm1.RadioGroup2Click(Sender: TObject);
begin
 RadioGroup1.ItemIndex := -1;
end;

Автор: Leliks 3.11.2007, 22:40

Ivan219 Они должны включатся и в первой и во второй ,пробовл как ты написал они переключаются просто,мож я неправильно обЪясняю.

Автор: kemiisto 3.11.2007, 22:47

Ты хочешь, чтоб при выборе в какой-либо группе в другой выбиралься тот же по счету элемент ?

Тогда так:

Код


procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
 RadioGroup2.ItemIndex := RadioGroup1.ItemIndex;
end;

procedure TForm1.RadioGroup2Click(Sender: TObject);
begin
 RadioGroup1.ItemIndex := RadioGroup2.ItemIndex;
end;

Уточни - чего конкретно желаешь !

Автор: Leliks 3.11.2007, 22:49

Вот так должно быть

Автор: Leliks 3.11.2007, 22:51

Нет чтоб я сам мог выбрать в одной к примеру 3 а в другой второй

Автор: kemiisto 3.11.2007, 22:59

А зачем это у тебя внутри RadioGroup находятся компоненты RadioButton?

У RadioGroups есть свойство Items, вот его то и надо использовать.

Автор: Alexeis 3.11.2007, 23:03

Цитата(kemiisto @ 3.11.2007, 22:59

)

А зачем это у тебя внутри RadioGroup находятся компоненты RadioButton?

Скажу по секрету даже если итемы создавать при помощи свойства Items, то там создаются тоже объекты типа TRadioButton smile

, а по сути все верно, в RadioGroup не нужно кидать радиокнопки, их нужно создавать при помощи свойства Items.

Автор: kemiisto 3.11.2007, 23:13

А верно еще и потому, что кинуть радиокнопку на RadioGroup не получится! Она будет принадлежать форме. В итоге получим, чтовыбранной может быть только одна радиокнопка! Видимо это и не устраивает Leliks.

Автор: Leliks 3.11.2007, 23:31

Вот точно оно и неустраивает smile

Добавлено через 3 минуты и 32 секунды
Акак создать радиокнупку при помощи свойства Items. smile

Автор: ivan219 3.11.2007, 23:54

Цитата(Leliks @ 3.11.2007, 23:31

)

Акак создать радиокнупку при помощи свойства Items.

А ты нажми на Items и в появившемся окошке набери несколько строк потом жми ОК smile

Добавлено @ 23:59

Код


procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
 case RadioGroup1.ItemIndex of
      -1:;// Ниодна кнопка не нажата
      0:;
.
.
 end;
end;

А вот так можно узнать какая кнопка нажата smile

Автор: Leliks 4.11.2007, 00:24

Пасибки

А штобы эта кнопка чето делала надо в том же окошке программу писать?

Автор: kemiisto 4.11.2007, 00:37

Нужно создать обработчик события OnClick для RadioGroup и там написать код по аналогии с тем, что написал ivan219 чуть выше.

Добавлено через 11 минут и 45 секунд
Дважды кликни на компоненте RadioGroup. Delphi создаст процедуру-обработчик события OnClick для этого компонента:

Код


procedure TForm1.RadioGroup1Click(Sender: TObject);
begin

end;

Между begin и end вставляешь свой код:

Код


case RadioGroup1.ItemIndex of
   -1: оператор1;
   0: оператор2;
end;

Здесь идет проверка - какая по счету радиокнопка выбрана. ItemIndex - номер по порядку (нумерация начинается с 0).
(ItemIndex = -1 означает, что ни нажата ни одна кнопка).

Автор: Leliks 5.11.2007, 17:30

Пасибки большие вроде чето начало получатся smile