TRadioButton

← →
Jaxtor © (2003-05-26 16:05) [0]

У меня динамически создаются компоненты класса TRadioButton в несколько рядов. Каждый ряд независим.
Как сделать, чтобы при изменении свойства Checked для определенного ряда эти изменения не достигали других рядов?
Какие есть способы?

← →
Skier © (2003-05-26 16:09) [1]

Насколько я знаю RadioButton и нужен именно для исключающего
выбора.

← →
Jaxtor © (2003-05-26 16:10) [2]

Skier> Ты прав. Но у меня каждый ряд отображает качественно новый параметр.

← →
Sandman25 © (2003-05-26 16:11) [3]

Можно засунуть каждый ряд в отдельный TRadioGroup

← →
Jaxtor © (2003-05-26 16:16) [4]

Sandman25> Да, я установил их в TRadioGroup. Но это не помогает.
Нужно как-то установить связь между TRadioGroup и TRadioButton.

← →
Kaban © (2003-05-26 16:20) [5]

т.е. ты radiobutton-ы кинул сверху на radiogroup?

← →
Skier © (2003-05-26 16:21) [6]

>Jaxtor © (26.05.03 16:16)
Связь между группами TRadioGroup придётся устанавливать
программно...

← →
Jaxtor © (2003-05-26 16:22) [7]

>Kaban Да!

← →
Jaxtor © (2003-05-26 16:23) [8]

Skier> А как это делать? Какие операторы? Подскажи, если нетрудно.

← →
AlexSV © (2003-05-26 16:25) [9]

> Как сделать, чтобы при изменении свойства Checked для определенного ряда эти изменения не достигали других рядов?
Положить каждый ряд на отдельную панель.
Если используешь TRadioGroup, то у него есть Items.

← →
Skier © (2003-05-26 16:25) [10]

>Jaxtor © (26.05.03 16:23)
А какая должна быть логика связи ?

← →
Kaban © (2003-05-26 16:26) [11]

Jaxtor © (26.05.03 16:22)
Оригинально TRadioGroup вообще то немного не для того :)
на свойство items не обращал внимание

← →
Jaxtor © (2003-05-26 16:29) [12]

>А какая должна быть логика связи ?
Есть для каждого ряда TRadioGroup, для него есть несколько TRadioButton.

← →
Skier © (2003-05-26 16:31) [13]

>Jaxtor © (26.05.03 16:29)
1)посмотри св-во Items
2)Если у тебя будет несколько TRadioGroup-ов, то
видимо (?) дополнительных усилий не потребуется.

← →
Jaxtor © (2003-05-26 16:33) [14]

С GroupBox что-то начало получаться.

← →
Sandman25 © (2003-05-26 16:50) [15]

Действительно, RadioGroup не работает, а GroupBox делает именно то, что нужно.

← →
Jaxtor © (2003-05-26 17:02) [16]

procedure TForm1.OnShow(Sender: TObject); var Gb:TGroupBox; Rb:TRadioButton; begin Gb:=TGroupBox.Create(Self); Gb.Top:=1; Gb.Parent:=Self; Gb.Name:="GroupBox1"; Rb:=TRadioButton.Create(Self); Rb.Parent:=Self; Rb.Top:=30; Rb.Left:=30; Rb.Name:="RadioButton1"; Rb:=TRadioButton.Create(Self); Rb.Parent:=Self; Rb.Top:=50; Rb.Left:=30; Rb.Name:="RadioButton2"; Gb:=TGroupBox.Create(Self); Gb.Top:=200; Gb.Parent:=Self; Gb.Name:="GroupBox2"; Rb:=TRadioButton.Create(Self); Rb.Parent:=Self; Rb.Top:=230; Rb.Left:=30; Rb.Name:="RadioButton3"; Rb:=TRadioButton.Create(Self); Rb.Parent:=Self; Rb.Top:=250; Rb.Left:=30; Rb.Name:="RadioButton4"; end;

Как указать программно для RadioButton1 и RadioButton2, что для них есть GroupBox1?

Rb:=TRadioButton.Create( Gb);
Rb.Parent:= Gb;

Parent"ом назначить GroupBox1

>Skier Спасибо. Извини за глупый вопрос.

procedure TForm1.OnShow(Sender: TObject); var Gb:TGroupBox; Rb:TRadioButton; begin Gb:=TGroupBox.Create(Self); Gb.Top:=10; Gb.Left:=10; Gb.Height:=40; Gb.Width:=300; Gb.Parent:=Self; Gb.Name:="GroupBox1"; Rb:=TRadioButton.Create(Self); Rb.Parent:=Gb; Rb.Top:=20; Rb.Left:=10; Rb.Caption:="RadioButton1"; Rb.Name:="RadioButton1"; Rb:=TRadioButton.Create(Self); Rb.Parent:=Gb; Rb.Top:=20; Rb.Left:=150; Rb.Name:="RadioButton2"; Gb:=TGroupBox.Create(Self); Gb.Top:=100; Gb.Left:=10; Gb.Parent:=Self; Gb.Height:=40; Gb.Width:=300; Gb.Name:="GroupBox2"; Rb:=TRadioButton.Create(Self); Rb.Parent:=Gb; Rb.Top:=120; Rb.Left:=30; Rb.Name:="RadioButton3"; Rb:=TRadioButton.Create(Self); Rb.Parent:=Gb; Rb.Top:=120; Rb.Left:=150; Rb.Name:="RadioButton4"; end;
Почему-то не отображаются компоненты RadioButton3 и RadioButton4.
Если нетрудно, подскажите, знатоки, пожалуйста.

Ну и зачем сей изврат ? Так не устроит ? :

ARadioGroup := TRadioGroup.Create(Self);
ARadioGroup.Parent := Self;
ARadioGroup.Items.CommaText := "RadioButton1, RadioButton2, RadioButton3";

//....................................

ARadioGroup := TRadioGroup.Create(Self);
ARadioGroup.Parent := Self;
ARadioGroup.Items.CommaText := "RadioButton100, RadioButton101, RadioButton102";

> Почему-то не отображаются компоненты RadioButton3 и RadioButton4
Потому что уходят за пределы видимости.
...
Gb.Height:=40;
...
Rb.Top:=120; // Поставь здесь Rb.Top:=20;

>AlexSV Работает! Спасибо!!!!

TRadioButton Найти похожие ветки