CheckBox в Delphi - Компоненты Delphi

Markkaq · 13.11.2017, 18:39

Помогите доделать проект, суть в том, чтобы после нажатия на один из компонентов Выбора, активными становились поля: Количество, Цена, Стоимость.

Аватар · 13.11.2017, 19:02

А это близнец видимо
http://programmersforum.ru/showthread.php?t=314203

newerow1989 · 14.11.2017, 05:13

Сначала при запуске программы все 9 Edit-ов делаем не активными: в окне Object Inspector для каждого Edit-а меняем свойство Enabled на false.

Далее двойным щелчком по каждому CheckBox-у добавляем ниже код

Код:

procedure TForm2.CheckBox1Click(Sender: TObject);
begin
   Edit1.Enabled:=CheckBox1.Checked;
   Edit4.Enabled:=CheckBox1.Checked;
   Edit7.Enabled:=CheckBox1.Checked;
end;

procedure TForm2.CheckBox2Click(Sender: TObject);
begin
   Edit2.Enabled:=CheckBox2.Checked;
   Edit5.Enabled:=CheckBox2.Checked;
   Edit8.Enabled:=CheckBox2.Checked;
end;

procedure TForm2.CheckBox3Click(Sender: TObject);
begin
   Edit3.Enabled:=CheckBox3.Checked;
   Edit6.Enabled:=CheckBox3.Checked;
   Edit9.Enabled:=CheckBox3.Checked;
end;

Vyacheslav. · 16.11.2017, 17:55

Я в шоке. Стырили. Я звезда))

13.11.2017, 19:02	#2
Аватар Старожил Регистрация: 17.11.2010 Сообщений: 18,922	А это близнец видимо http://programmersforum.ru/showthread.php?t=314203 Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию

14.11.2017, 05:13	#3
newerow1989 Я самый любопытный Участник клуба Регистрация: 24.07.2012 Сообщений: 1,987	Сначала при запуске программы все 9 Edit-ов делаем не активными: в окне Object Inspector для каждого Edit-а меняем свойство Enabled на false. Далее двойным щелчком по каждому CheckBox-у добавляем ниже код Код: `procedure TForm2.CheckBox1Click(Sender: TObject); begin Edit1.Enabled:=CheckBox1.Checked; Edit4.Enabled:=CheckBox1.Checked; Edit7.Enabled:=CheckBox1.Checked; end; procedure TForm2.CheckBox2Click(Sender: TObject); begin Edit2.Enabled:=CheckBox2.Checked; Edit5.Enabled:=CheckBox2.Checked; Edit8.Enabled:=CheckBox2.Checked; end; procedure TForm2.CheckBox3Click(Sender: TObject); begin Edit3.Enabled:=CheckBox3.Checked; Edit6.Enabled:=CheckBox3.Checked; Edit9.Enabled:=CheckBox3.Checked; end;` С запрограммированным приветом, Неверов Евгений! Сайт: http://newerow1989.ru [Паскаль] [Delphi]

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
CheckBox'ы и Delphi	Sergeevich	Помощь студентам	2	16.06.2013 19:25
Как выполнить функцию в случае нажатия на CheckBox, если данный CheckBox был добавлен через код?	PAMAC	Microsoft Office Excel	7	21.02.2013 15:33
checkBox Delphi Access	Vася	БД в Delphi	1	11.04.2011 18:35
CheckBox на Delphi	yaxx	Помощь студентам	2	10.10.2010 23:08

16.11.2017, 17:55	#4
Vyacheslav. Форумчанин Регистрация: 22.10.2017 Сообщений: 113	Я в шоке. Стырили. Я звезда))