Как отключить 40 RadioButton

@Jimmi-Janger · Регистрация: 25.02.2013

Author24 — интернет-сервис помощи студентам

Имеется форма, на которой примерно 40 - RadioButton
Мне не известно, какой из RadioButton выбрал пользователь...
Но мне нужно сделать так, что бы при закрытии (onClose) формы, все RadioButton отключались.
----------------------------------------------------
Я понимаю, что в крайнем случае можно на каждый RadioButton написать условие, что бы он закрывался, если активен.
Но можно ли сделать это как то, более профессионально что ли?
----------------------------------------------------
Спасибо всем большое за помощь.

@Puporev · 21.08.2014, 08:02

Delphi

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

@Sergio Leone · 21.08.2014, 08:08

Jimmi-Janger, извини за придирчивость и чайниковость - а что означает

Сообщение от Jimmi-Janger

все RadioButton отключались

и

Сообщение от Jimmi-Janger

бы он закрывался, если активен.

?!

Это как?
И зачем что-то "закрывать", если форма, на которой находятся ваша кучка радиобатонов, всё равно закрывается?

@Jimmi-Janger · 21.08.2014, 22:25 **[ТС]**

Я собственно когда выбираю RadioButton на форме, форму закрываю.
Но! При открытии формы, на которой находятся все RadioButton, уже "выбран" именно тот RadioButton, который я выбирал перед закрытием формы.

@cotseec · 21.08.2014, 22:35

Может проще создавать форму, когда она необходима и разрушать, когда надобность отпала, а не открывать/закрывать и заморачиваться с деактивацией радиокнопок?

@Jimmi-Janger · 21.08.2014, 22:39 **[ТС]**

Простите, возможно я вас не правильно понял, вы хотите, что я при нажатии на кнопку, системно создавал форму, а так же все компоненты на ней (в том числе 40-ок RadioButton), и потом разрушал?

@cotseec · 21.08.2014, 22:49

Сообщение от Jimmi-Janger

вы хотите

я хочу счастья и денег, но к делу это не относится

я предлагаю работать в стиле ООП, имхо проще написать abc := TForm134.Create(self); и abc.Free; чем перебирать все компоненты на форме, конечно, если создание/уничтожение экземпляра класса будет производится нечасто и не повлияет на производительность, но тут, вроде, не тот случай

@Jimmi-Janger · 21.08.2014, 22:55 **[ТС]**

Ааа, вы об этом.
Попробую конечно, но что то мне подсказывает что мне будет лениво

@mss · 21.08.2014, 23:27

Сообщение от Jimmi-Janger

что я .. системно создавал форму, а так же все компоненты на ней

А в текущей ипостаси твоего проекта форма, надо понимать, создается несистемно (видимо Святым Духом) и все компоненты на нее падают сами прямо с Луны ?

@northener · 22.08.2014, 01:59

Сообщение от Puporev

if (Components[i] is TRadioButton)and((Components[i] as TRadioButton).Checked) then (Components[i] as TRadioButton).Checked:=false

Не по теме:

Извини за повторение, но as после is ну очень режет взгляд. Тем более что as более одной штуки. Если перевести этот код на простой русский получается
Если Components[i] это TRadioButton и (если всё-таки Components[i] это TRadioButton и если он выбран), то если это действительно (три раза перекрестившись/сплюнув через левое плечо/постучав по дереву) Components[i] это TRadioButton, то убрать выбор.
Ну согласись что видеть такой код в моём переводе ну очень противно.

@Cyborg Drone · 22.08.2014, 02:35

Не по теме:

Сообщение от northener

Ну согласись что видеть такой код в моём переводе ну очень противно.

В переводе, оно, конечно, противно, но английский язык он такой. Противный. Никогда не задумывались, почему в языках романской группы есть артикли, а в языках славянской группы - нет (ну, разве что вырожденные, без которых можно обойтись, например, "я есть человек")? А жёсткий порядок слов в предложении? А обязательное указание субъекта и объекта? Ну они ж не славяне, что возьмёшь...

@northener · 22.08.2014, 02:45

Не по теме:

Cyborg Drone, ну я всё-таки говорил не о банальном переводе с аглицкого на русский. Не оффтопь, пожалуйста мой оффтоп. :)

@volvo · 22.08.2014, 03:01

Jimmi-Janger, а как расположены все эти твои RadioButton-ы? Может, проще заменить их на RadioGroup, и выставлять RadioGroup.ItemIndex в (-1)?

Ну, или стандартное решение: добавить еще один, лишний, RadioButton (только вынести его за пределы видимой части формы, с отрицательным значением Top, например), и одним движением выставлять его выбранным, безо всяких циклов, при этом с выбранного видимого компонента Checked разумеется уйдёт... Это в любом случае будет проще, чем динамически создавать форму при необходимости...

@Cyborg Drone · 22.08.2014, 03:04

Сообщение от UI

(только вынести его за пределы видимой части формы)

Можно его просто невидимым сделать.

@Jimmi-Janger · 27.08.2014, 00:06 **[ТС]**

проблема решена. "Тему можно закрывать"...
Или как тут говориться?

@northener · 27.08.2014, 02:19

Сообщение от Jimmi-Janger

проблема решена. "Тему можно закрывать"...
Или как тут говориться?

"Закрыть" тему ты можешь сам, поскольку ты её автор.
Но хорошим тоном было бы привести само решение проблемы. Хотя бы в общих словах.

@SatanaXIII · 28.08.2014, 09:35

Сообщение от northener

"Закрыть" тему ты можешь сам, поскольку ты её автор.

А так же пункт 2.3 Правил: Темы по просьбам пользователей не удаляются и не закрываются.

Сообщение от northener

Но хорошим тоном было бы привести само решение проблемы. Хотя бы в общих словах.

Вот это да. Именно так.

@northener пофигист широкого профиля 4732 / 3167 / 858 Регистрация: 15.07.2013 Сообщений: 18,251
	22.08.2014, 01:59	10
	Сообщение от Puporev if (Components[i] is TRadioButton)and((Components[i] as TRadioButton).Checked) then (Components[i] as TRadioButton).Checked:=false Не по теме: Извини за повторение, но as после is ну очень режет взгляд. Тем более что as более одной штуки. Если перевести этот код на простой русский получается Если Components[i] это TRadioButton и (если всё-таки Components[i] это TRadioButton и если он выбран), то если это действительно (три раза перекрестившись/сплюнув через левое плечо/постучав по дереву) Components[i] это TRadioButton, то убрать выбор. Ну согласись что видеть такой код в моём переводе ну очень противно. 0

@Jimmi-Janger 0 / 0 / 0 Регистрация: 25.02.2013 Сообщений: 16
	27.08.2014, 00:06 [ТС]	15
	проблема решена. "Тему можно закрывать"... Или как тут говориться? 0

@northener пофигист широкого профиля 4732 / 3167 / 858 Регистрация: 15.07.2013 Сообщений: 18,251
	27.08.2014, 02:19	16
	Сообщение от Jimmi-Janger проблема решена. "Тему можно закрывать"... Или как тут говориться? "Закрыть" тему ты можешь сам, поскольку ты её автор. Но хорошим тоном было бы привести само решение проблемы. Хотя бы в общих словах. 0

@SatanaXIII Почетный модератор 5850 / 2861 / 392 Регистрация: 01.11.2011 Сообщений: 6,907
	28.08.2014, 09:35	17
	Сообщение от northener "Закрыть" тему ты можешь сам, поскольку ты её автор. А так же пункт 2.3 Правил: Темы по просьбам пользователей не удаляются и не закрываются. Сообщение от northener Но хорошим тоном было бы привести само решение проблемы. Хотя бы в общих словах. Вот это да. Именно так. 0

@Jimmi-Janger 0 / 0 / 0 Регистрация: 25.02.2013 Сообщений: 16
		1
	Как отключить 40 RadioButton 21.08.2014, 07:54. Показов 3018. Ответов 16 Метки нет (Все метки) Имеется форма, на которой примерно 40 - RadioButton Мне не известно, какой из RadioButton выбрал пользователь... Но мне нужно сделать так, что бы при закрытии (onClose) формы, все RadioButton отключались. ---------------------------------------------------- Я понимаю, что в крайнем случае можно на каждый RadioButton написать условие, что бы он закрывался, если активен. Но можно ли сделать это как то, более профессионально что ли? ---------------------------------------------------- Спасибо всем большое за помощь. 0

@Sergio Leone 2509 / 1130 / 582 Регистрация: 07.06.2014 Сообщений: 3,286
	21.08.2014, 08:08	3
	Jimmi-Janger, извини за придирчивость и чайниковость - а что означает Сообщение от Jimmi-Janger все RadioButton отключались и Сообщение от Jimmi-Janger бы он закрывался, если активен. ?! Это как? И зачем что-то "закрывать", если форма, на которой находятся ваша кучка радиобатонов, всё равно закрывается? 1

@Jimmi-Janger 0 / 0 / 0 Регистрация: 25.02.2013 Сообщений: 16
	21.08.2014, 22:25 [ТС]	4
	Я собственно когда выбираю RadioButton на форме, форму закрываю. Но! При открытии формы, на которой находятся все RadioButton, уже "выбран" именно тот RadioButton, который я выбирал перед закрытием формы. 0

@cotseec Пишу на Delphi...иногда 1423 / 1278 / 286 Регистрация: 03.12.2012 Сообщений: 3,914 Записей в блоге: 5
	21.08.2014, 22:35	5
	Может проще создавать форму, когда она необходима и разрушать, когда надобность отпала, а не открывать/закрывать и заморачиваться с деактивацией радиокнопок? 0

@Jimmi-Janger 0 / 0 / 0 Регистрация: 25.02.2013 Сообщений: 16
	21.08.2014, 22:39 [ТС]	6
	Простите, возможно я вас не правильно понял, вы хотите, что я при нажатии на кнопку, системно создавал форму, а так же все компоненты на ней (в том числе 40-ок RadioButton), и потом разрушал? 0

@cotseec Пишу на Delphi...иногда 1423 / 1278 / 286 Регистрация: 03.12.2012 Сообщений: 3,914 Записей в блоге: 5
	21.08.2014, 22:49	7
	Сообщение от Jimmi-Janger вы хотите я хочу счастья и денег, но к делу это не относится я предлагаю работать в стиле ООП, имхо проще написать abc := TForm134.Create(self); и abc.Free; чем перебирать все компоненты на форме, конечно, если создание/уничтожение экземпляра класса будет производится нечасто и не повлияет на производительность, но тут, вроде, не тот случай 1

@Jimmi-Janger 0 / 0 / 0 Регистрация: 25.02.2013 Сообщений: 16
	21.08.2014, 22:55 [ТС]	8
	Ааа, вы об этом. Попробую конечно, но что то мне подсказывает что мне будет лениво 0

@mss 2664 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	21.08.2014, 23:27	9
	Сообщение от Jimmi-Janger что я .. системно создавал форму, а так же все компоненты на ней А в текущей ипостаси твоего проекта форма, надо понимать, создается несистемно (видимо Святым Духом) и все компоненты на нее падают сами прямо с Луны ? 1

@Cyborg Drone
	22.08.2014, 02:35 #11
	Не по теме: Сообщение от northener Ну согласись что видеть такой код в моём переводе ну очень противно. В переводе, оно, конечно, противно, но английский язык он такой. Противный. Никогда не задумывались, почему в языках романской группы есть артикли, а в языках славянской группы - нет (ну, разве что вырожденные, без которых можно обойтись, например, "я есть человек")? А жёсткий порядок слов в предложении? А обязательное указание субъекта и объекта? Ну они ж не славяне, что возьмёшь... 0

@northener
	22.08.2014, 02:45 #12
	Не по теме: Cyborg Drone, ну я всё-таки говорил не о банальном переводе с аглицкого на русский. Не оффтопь, пожалуйста мой оффтоп. :) 0

@volvo Супер-модератор 32835 / 21172 / 8148 Регистрация: 22.10.2011 Сообщений: 36,431 Записей в блоге: 8
	22.08.2014, 03:01	13
	Jimmi-Janger, а как расположены все эти твои RadioButton-ы? Может, проще заменить их на RadioGroup, и выставлять RadioGroup.ItemIndex в (-1)? Ну, или стандартное решение: добавить еще один, лишний, RadioButton (только вынести его за пределы видимой части формы, с отрицательным значением Top, например), и одним движением выставлять его выбранным, безо всяких циклов, при этом с выбранного видимого компонента Checked разумеется уйдёт... Это в любом случае будет проще, чем динамически создавать форму при необходимости... 0

@Cyborg Drone Модератор 9867 / 5235 / 3306 Регистрация: 17.08.2012 Сообщений: 16,005
	22.08.2014, 03:04	14
	Сообщение от UI (только вынести его за пределы видимой части формы) Можно его просто невидимым сделать. 0