Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.90/40: Рейтинг темы: голосов - 40, средняя оценка - 4.90
1 / 1 / 1
Регистрация: 30.06.2012
Сообщений: 54
1

Проверка checkbox

10.07.2012, 20:38. Показов 8068. Ответов 12
Метки нет (Все метки)

Дайте код пжл чтобы когда на кнопку жмякаешь программа проверяла есть ли галочка в checkbox, если есть то в memo1 писалось "123" , если нету галочки, то программа ничего не делала...
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.07.2012, 20:38
Ответы с готовыми решениями:

Проверка всех Checkbox
На форме 5 чекбоксов. При нажатии на кнопку должна быть проверка, если ни на один Checkbox не...

Проверка нескольких CheckBox
Есть 6 CheckBox-ов, каждому присвоена константа от A до F, есть переменная PassChar которая состоит...

Проверка состояний CheckBox, найти ошибку в коде
при нажатие кнопки "2 этаж" Должны выводиться данные о состояние только датчиков СМК! не...

Как при нажатии на CheckBox передавать в DbEdit определенное слово или Caption CheckBox'а?
Народ у меня сложилась такая ситуация. Пишу БД. У меня на форме есть 2 компонента DBEdit и...

12
423 / 423 / 338
Регистрация: 25.06.2012
Сообщений: 668
10.07.2012, 20:41 2
Delphi
1
2
3
4
procedure TForm1.Button1Click(Sender: TObject);
begin
if CheckBox1.Checked then Memo1.Lines.Add('123');
end;
1
89 / 70 / 9
Регистрация: 04.03.2012
Сообщений: 206
10.07.2012, 20:44 3
Delphi
1
2
if checkbox1.Checked=true then
memo1.lines.add('123')
1
1 / 1 / 1
Регистрация: 30.06.2012
Сообщений: 54
11.07.2012, 15:42  [ТС] 4
всем спасиб

Добавлено через 18 часов 43 минуты
а как сделать проверку например на 10 чекбоксов?
0
225 / 111 / 9
Регистрация: 23.12.2011
Сообщений: 751
11.07.2012, 15:47 5
sxcine, через десяток If... а можно поконкретнее задачу для десяти?
0
1 / 1 / 1
Регистрация: 30.06.2012
Сообщений: 54
11.07.2012, 15:54  [ТС] 6
Ну у меня на форме есть десять чекбоксов и когда я нажимаю на кнопку, то программа проверяет отмечены ли чекбоксы, если отмечены несколько чекбоксов или все не важно и если отмечены то в мемо один добавляется текст 123 , если отмечены семь чекбоксов, то в мемо1 добавляется 7 раз текст 123 если все десять то 10 раз в мемо1 добавляется текст 123... как то так вообщем
0
225 / 111 / 9
Регистрация: 23.12.2011
Сообщений: 751
11.07.2012, 15:56 7
sxcine, тогда просто десяток
Delphi
1
if CheckBoxN.Checked then Memo1.Lines.Add('123');
1
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
31466 / 20513 / 7988
Регистрация: 22.10.2011
Сообщений: 35,643
Записей в блоге: 7
11.07.2012, 18:38 8
Цитата Сообщение от Mr_Axel Посмотреть сообщение
тогда просто десяток
Никогда ничего не надо копипастить десятками раз. Циклы никто не отменял. Либо (если надо проверять часть из чекбоксов на форме):
Delphi
1
2
3
for i := 1 to 10 do // Ну, или сколько чекбоксов надо проверить, с именами CheckBox1 .. CheckBoxN
   if (FindComponent(Format('CheckBox%d', [i])) as TCheckBox).Checked then
      Memo1.Lines.Add('123');
, либо (если надо проверять все чекбоксы, лежащие на форме):
Delphi
1
2
3
   for i := 0 to ControlCount - 1 do
      if (Controls[i] is TCheckBox) and (Controls[i] as TCheckBox).Checked then
         Memo1.Lines.Add('123');
0
0 / 0 / 1
Регистрация: 13.10.2012
Сообщений: 5
07.11.2012, 17:35 9
почему если я пишу
Delphi
1
2
3
4
5
for i := 0 to ControlCount - 1 do
      if (Controls[i] is TCheckBox) and (Controls[i] as TCheckBox).Checked then
         Memo1.Lines.Add('123')
      if (Controls[i] is TCheckBox) and (Controls[i] as TCheckBox).Checked=false then
         Memo1.Lines.Add('321');
программа не работает?(при любых вариациях)
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
31466 / 20513 / 7988
Регистрация: 22.10.2011
Сообщений: 35,643
Записей в блоге: 7
07.11.2012, 17:40 10
При каких именно вариациях? Если чекбоксы будут отмечены - то "123" будет добавляться. А если нет - извини, но цикл у тебя распространяется только на первый If, а не на оба. Понятно, что ни разу "321" в мемо не добавится...
0
0 / 0 / 1
Регистрация: 13.10.2012
Сообщений: 5
07.11.2012, 17:52 11
я еще через else пробывал
а как тогда сделать, чтобы можно было отобразить порядок?
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
31466 / 20513 / 7988
Регистрация: 22.10.2011
Сообщений: 35,643
Записей в блоге: 7
07.11.2012, 18:45 12
Порядок чего отобразить? Вот это имелось в виду?
Delphi
1
2
3
4
5
6
for i := 0 to ControlCount - 1 do
   if (Controls[i] is TCheckBox) then
   begin
      if (Controls[i] as TCheckBox).Checked then Memo1.Lines.Add('123')
      else Memo1.Lines.Add('321');
   end;
1
0 / 0 / 1
Регистрация: 13.10.2012
Сообщений: 5
07.11.2012, 19:09 13
спасибо, именно это и не получалось
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.11.2012, 19:09

Проверка выполнения условий нажатых CheckBox
Подскажите как подключить функцию с условиями на изменение чек бокса.Заранее спасибо

Проверка checkbox
Добрый день! Помогите, пожалуйста. На сайте есть checkbox: <label...

checkbox проверка
Здравствуйте, подскажите как лучше поступить. У меня есть страница, на ней формируется столб с...

Проверка состояния checkbox
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML> <HEAD> <TITLE>Поштова...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
13
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru