Нужна помощь с CheckBox

[allmost]

Добрый день, надо по работе сделать опрос из 15 вопросов для получения пропуска. Вариантов может быть несколько. Застрял на первом же варианте. К сожалению знаком с делфи 2 дня. Поэтому ничего не понимаю, помогите пож-та.

К примеру, в первом вопросе правильные 1,2,4 и 5 ответы. Я хочу, что бы при их выборе загорался зеленый (Green1)квадратик сверху а не красный(Red1).

procedure TForm1.Button1Click(Sender: TObject);
begin
if CheckBox1.checked and CheckBox2.Checked and CheckBox4.Checked and CheckBox5.Checked then
begin
CheckBox1.Color:=clGreen;CheckBox2.Color:=clGreen;CheckBox4.Color:=clGreen;CheckBox5.Color:=clGreen;
Green1.Visible:=true;
end;
begin
if CheckBox1.Checked and CheckBox2.Checked and CheckBox3.Checked and CheckBox4.Checked and CheckBox5.Checked and CheckBox6.Checked then
begin
CheckBox1.Color:=clGreen;CheckBox2.Color:=clGreen;CheckBox4.Color:=clGreen;CheckBox5.Color:=clGreen;
CheckBox3.Color:=clRed;CheckBox6.Color:=clRed;
Red1.Visible:=true;

end
else
begin
Red1.Visible:=true;
CheckBox1.Color:=clGreen;CheckBox2.Color:=clGreen;CheckBox4.Color:=clGreen;CheckBox5.Color:=clGreen;
CheckBox3.Color:=clRed;CheckBox6.Color:=clRed;
end;
end;
end;
end.

[allmost]

Все я сам отдуплился, надо было в строке
if CheckBox1.Checked and CheckBox2.Checked and CheckBox3.Checked and CheckBox4.Checked and CheckBox5.Checked and CheckBox6.Checked(дописать)and not CheckBox3.Checked и.т.д. then

[Gregor]

к каждому из вопросов привяжи массив из 6 элементов с правильными ответами после нажатия на кнопку сравнивай массив с текущими ответами с прикрепленными массивом . а то так замучаешься писать if else

[evg_m]

НАДО?!
при нажатии какой-то кнопки(Button1) высвечивались

1)правильные отметки (галочка у правильного ответа) (зеленым)
2) неправильные отметки (галочка у неверного ответа) (красным)
3) НЕправильные пропуски (нет галочки у ВЕРНОГО ответа) красным?????
4) правильные пропуски (нет галочки у неверного ответа) зеленым????

ВАРИАНТ ОТВЕТА.
у всех Сheckbox есть свойство tag которое сделано специально для программиста.
Там он может хранить любую нужную ему информацию.

Всем правильным ответам (Checkbox-ам) ставим это свойство (tag) =1
и оставляем нетронутым для всех прочих.

чтобы не писать много раз одинаковые проверки пдля КАЖДОГО CheckBox
пишем такую процедуру

  procedure SetcolorCheck(chk: TCheckBox);
  begin
       if chk.Checked // есть галочка 
          and (chk.tag=1) // и ответ есть верный 
  then chk.color:=clgreen // ставим нужный цвет
  else if chk.Checked
          and (chk.tag=0)
  then chk.Color:=clRed
  else if ( not chk.checked)
          and (chk.tag=1)
  then chk.color:=clRed
  else if ( not chk.Checked)
          and (chk.tag=0)
  then chk.color:=clGreen
  else chk.color:=clBlue; //ну УВИДИМ совсем невероятный случай     
  end;

а потом везде где надо используем ее

procedure TForm1.Button1Click(Sender: TObject);
begin

  SetColorCheck(CheckBox1);
  SetColorCheck(CheckBox2);
 .... //Сейчас мне скажут что все это надо в цикл 
( человек видит программированне второй раз в жизни
  и еще не умеет читать программу на лету

  дайте ему постепенно понять что же ему НУЖНО сделать в его программе)
end;

Что такое Red1 /Green1 пока не понял.
Точнее понял это относится к "квадратикам" вверху.
НО правил их смены(точнее смены их цветов) не понял.

Кстати скорее всего
тоже можно не делать три разных квадратика(Gray|Green|Red)
и манипулировать их видимостью (особенно забывая при этом скрывать ненужные)
а просто менять цвет у одного аналогично тому как делаешь у Checkbox.

продолжение цикл и прочее ... следует.

[allmost]

Ого сколько всего, спасибо большое. Я чувствовал, что я делаю все слишком прямолинейно. Так гораздо проще, сейчас буду пробовать реализовывать, чертовски интересно оказалось программировать, хотя это уровень детского сада и я понимаю это. Надо еще будет как-то сохранять результаты научиться делать и таймер забабахать, очень любопытно и интересно так все проектировать. Одни эмоции)

[allmost]

Все, всем спасибо, программу сделал. Но теперь нужна другая. Вот я сделал новую. Надо чтобы при нажатии на одном компьютере передавались данные на другой компьютер, то есть, если кто-то нажимает лампочку на одном компьютере, то на другом компьютере она тоже загоралась. Компьютере подсоединены по локальной сети. Подскажите пож-та как это можно реализовать?

И еще, может кто знает, как сделать так, что бы внизу плашка с программой сворачивалась в трей, а приложение нет - продолжало работать?

[TaLadno]

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

К сожалению знаком с делфи 2 дня. Поэтому ничего не понимаю, помогите пож-та.

Ну так потрать не 2 дня, а хотя бы 2 недели. Оно же тебе надо, а не мне

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

И еще, может кто знает, как сделать так, что бы внизу плашка с программой сворачивалась в трей, а приложение нет - продолжало работать?

TTrayIcon
http://docwiki.embarcadero.com/CodeE...ayIcon_(Delphi)

пс... когда выливаешь сюды свой код, юзай эту кнопку, тыжпрограммист, блин

[allmost]

Да какой там программист, так шантрапа взбалмошная. Разобрался с треем, установил компонент CoolIconTray. С сетью ищу как сделать, но если кто знает, я был бы благодарен.

[TaLadno]

А что надо с сетью? Могу же ссылку и на Indy дать

[allmost]

Надо чтобы при нажатии на одном компьютере передавались данные на другой компьютер, то есть, если кто-то нажимает лампочку на одном компьютере, то на другом компьютере она тоже загоралась. Компьютере подсоединены по локальной сети. Подскажите пож-та как это можно реализовать?

Я имею в виду вот это про сеть.