РадиоБатоны?

← →
Hitkliff © (2006-05-22 15:52) [0]

Как циклом сбросить выделение большого количества РадиоБатонов??????????

← →
Elen © (2006-05-22 16:10) [1]

Угощайтесь, Сударь, Батончиком

procedure TForm1.Button1Click(Sender: TObject); var i:byte; begin for i:=0 to form1.ComponentCount-1 do begin if form1.Components[i] is TRadioButton then TRadioButton(form1.Components[i]).Checked:=false; end; end;

← →
Gydvin © (2006-05-22 16:42) [2]

РадиоБатоны - это как ))))

← →
Elen © (2006-05-22 16:57) [3]

>РадиоБатоны - это как ))))

Наверное Батоны из Чернобыля

← →
Ega23 © (2006-05-22 17:00) [4]

> procedure TForm1.Button1Click(Sender: TObject);
> var i:byte;
> begin
> for i:=0 to form1.ComponentCount-1 do
> begin
> if form1.Components[i] is TRadioButton then TRadioButton(form1.
> Components[i]).Checked:=false;
> end;
>
> end;
>

1. Т.к. данный код идёт в рамках класса TForm1, form1 везде можно опустить. Тем более, что экземпляр объекта класса TForm1 может называться не только "form1".
2. Eсли контролов > 255 - работать не будет.

← →
MBo © (2006-05-22 17:04) [5]

>2. Eсли контролов > 255 - работать не будет.
А особенно чудесно, если их будет 0 ;)

>Hitkliff © (22.05.06 15:52)
>Как циклом сбросить выделение большого количества РадиоБатонов??????????

Radiobutton-ы вообще-то предназначены для выбора одного из множества вариантов, поэтому вопрос несколько странный...

← →
Ega23 © (2006-05-22 17:08) [6]

> А особенно чудесно, если их будет 0 ;)

А что тогда? В цикл-то не попадаем по условию...

← →
Cashmare © (2006-05-22 17:36) [7]

Ega23 © (22.05.06 17:08) [6]

Range Check Error будет. Только зачем перебирать 0 контролов, да еще и на предмет радиобатонов. :)

← →
MBo © (2006-05-22 17:37) [8]

>Ega23 © (22.05.06 17:08) [6]
>А что тогда? В цикл-то не попадаем по условию...
Использование беззнаковой переменной в качестве счетчика цикла часто чревато боком:

procedure TForm1.Button2Click(Sender: TObject); var b, Cnt: byte; CycleCount: Integer; begin CycleCount := 0; Cnt := 0; for b := 0 to Cnt - 1 do Inc(CycleCount); Caption := IntToStr(CycleCount); end;

← →
Ega23 © (2006-05-22 18:03) [9]

> Caption := IntToStr(CycleCount);

А-а-а, в этом плане...
Понял...

← →
Asail (2006-05-23 00:32) [10]

> А особенно чудесно, если их будет 0 ;)

Это как так? А Button1 - он что-же не контрол что-ли? Так-что, как минимум, один уж есть...

> Это как так? А Button1 - он что-же не контрол что-ли? Так-что, как минимум, один уж есть...

Button1 имеет тип TButton, это не TRadioButton (он же Радио Батон)

Если я не ошибаюсь Радио батон при вкльчении выключает все другие Радио батоны в том контейнере в котором он находится, так что эта задача не имеет смысла

← →
Asail (2006-05-23 17:49) [12]

> Button1 имеет тип TButton, это не TRadioButton (он же Радио
> Батон)

Правильно, но в цикле, приведенном выше, проверка идет на кол-во ВСЕХ контролов на форме.

> Если я не ошибаюсь Радио батон при вкльчении выключает все
> другие Радио батоны в том контейнере в котором он находится,
> так что эта задача не имеет смысла

Полностью поддерживаю...

>Полностью поддерживаю...
Аналогично.

procedure TForm1.ExecClick(Sender: TObject); // procedure SetConrols(Obj:array of TObject); var I:Integer; begin for I:=0 to Length(Obj)-1 do begin if (Obj[I] is TRadioButton) then (Obj[I] as TRadioButton).Checked:=False; end; end; // begin SetConrols([RadioButton1,RadioButton2,RadioButton3]); end;

а как по мне так проще пробежаться по компонентам на форме да и все.
но как было замечено еще в [5] посте, бред какой-то а не задача,
тохда уже чек-боксы а не радио.

РадиоБатоны? Найти похожие ветки