Работа с компонентой RzCheckList1

[krikaved]

Есть компонента RzCheckList1. В него добавляю строки дней недели:

RzCheckList1.Items.Add('Понедельник');
RzCheckList1.Items.Add('Вторник');
RzCheckList1.Items.Add('Среда');
...

Если стоит галочка (checked) на Понедельник и если сегодня Понедельник выполныется какое-то действие, например открывается какая-то программа, если сегодня не понедельник, то ничего не выполняется.
Как это реализовать подскажите пожалуйста?

[Kotofff]

Попробуй так :

function NumDayOfWeek: integer;// день недели 1..7
var
  AddVal : shortint;
  yyyy, mm, dd:word;
begin
  DecodeDate(Now, yyyy, mm, dd);// "раскладываем" сегодняшнюю дату
  if mm < 3 then AddVal := 1 else AddVal := 0;
  Result := (((4*yyyy-(7*(yyyy+(mm+9) div 12)) div 4+(23*mm) div 9+dd+2+((yyyy-AddVal) div 100+1)*3 div 4-16) mod 7));
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  with RzCheckList1 do // делаем наш список
    begin
    Add('Понедельник');
    Add('Вторник');
    Add('Среда');
    Add('Четверг');
    Add('Пятница');
    Add('Суббота');
    Add('Воскресенье');
    end;
end;

procedure TForm1.RzButton1Click(Sender: TObject);
begin
  if RzCheckList1.ItemChecked[NumDayOfWeek-1] then ShowMessage('Опа !   Сегодня - ' + RzCheckList1.Items[NumDayOfWeek-1]);
end;

[krikaved]

Спасибо большое Kotofff!!!
А теперь я взял вместо RzCheckList1 и попробовал с помощью компоненты cxCheckComboBox1. Вот только есть одна проблема: почему-то когда в объекте инспекторов ставлю галочки для набранных полей (свойство States) галочки видны, а после компиляции - нет. Как хоты бы по OnCreate сделать checked для одного поля? ItemChecked или что-то подобное у cxCheckComboBox1 нет!

cxCheckComboBox1.ItemChecked[1]; // неверно

[Kotofff]

Вот так все вроде пашет :

procedure TForm1.Button1Click(Sender: TObject);
begin
  cxCheckComboBox1.States[0] := cbsChecked;// выставляем первый элемент
end;

[krikaved]

Да спасибо, пашет! А почему когда на другой (главной) форме, где нет cxCheckComboBox1 задаёшь условие, то пишет ошибку Undeclared identifier: 'cbsChecked'?
IF Form2.cxCheckComboBox1.States[NumDayOfWeek-1]=cbsChecked then
BEGIN
...
END;

[Marsel737]

А потому что на этой форме нет чекбокса. нужно тогда писать:

IF Form1.cxCheckComboBox1.States[NumDayOfWeek-1]=cbsChecked then
BEGIN
...
END;

[krikaved]

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

А потому что на этой форме нет чекбокса. нужно тогда писать:

IF Form1.cxCheckComboBox1.States[NumDayOfWeek-1]=cbsChecked then
BEGIN
...
END;

Я всё правильно написал по поводу какой формы, cxCheckComboBox1 у меня на Form2! Form1 - главная форма!

[krikaved]

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

Попробуй так :

function NumDayOfWeek: integer;// день недели 1..7
var
  AddVal : shortint;
  yyyy, mm, dd:word;
begin
  DecodeDate(Now, yyyy, mm, dd);// "раскладываем" сегодняшнюю дату
  if mm < 3 then AddVal := 1 else AddVal := 0;
  Result := (((4*yyyy-(7*(yyyy+(mm+9) div 12)) div 4+(23*mm) div 9+dd+2+((yyyy-AddVal) div 100+1)*3 div 4-16) mod 7));
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  with RzCheckList1 do // делаем наш список
    begin
    Add('Понедельник');
    Add('Вторник');
    Add('Среда');
    Add('Четверг');
    Add('Пятница');
    Add('Суббота');
    Add('Воскресенье');
    end;
end;

procedure TForm1.RzButton1Click(Sender: TObject);
begin
  if RzCheckList1.ItemChecked[NumDayOfWeek-1] then ShowMessage('Опа !   Сегодня - ' + RzCheckList1.Items[NumDayOfWeek-1]);
end;

Когда реальный день недели Воскресенье, то при нажатии на RzButton1 происходит такая ошибка:
Индекс списка вышел за границы (-1).
В чём причина?