Как одновременно выставить галочку при выборе строки в sCheckListBox?

[artemavd]

Добрый вечер! Сабж. Нужно при выборе строки, чтобы ставилась галочка. Не могу доиграться со свойствами.

[Человек_Борща]

В событии OnClick:

var
i:Integer;
begin
  i:=sCheckListBox1.ItemIndex;
  if i <> -1 then
     sCheckListBox1.Checked[i]:=sCheckListBox1.Selected[i];
end;

Вот так все просто =)

[Stilet]

sCheckListBox1.Checked[i]:=sCheckListBox1.Selected[i];

Я бы так написал:

sCheckListBox1.Checked[i]:=not sCheckListBox1.Checked[i];

[artemavd]

Спасибо. Да, действительно просто. Теперь такой вопрос: надо, чтобы если пользователь выбрал "Отмена" в появившемся сообщении, то галочка снималась? А она остается и по нажатию на "Отмена". Вот код (с учетом выше данных советов):

procedure TForm5.sCheckListBox1Click(Sender: TObject);
begin
 with Form5.sCheckListBox1 do
 begin
  if ItemIndex <> -1 then
  begin
   if Application.MessageBox(PWideChar('Добавить это значение?'),
                         'Form1', MB_OKCANCEL + MB_ICONQUESTION) = mrOk then
   begin
    Form5.sCheckListBox1.Checked[ItemIndex]:=Form5.sCheckListBox1.Selected[ItemIndex];
   end
   else
   begin
     Form5.sCheckListBox1.Checked[ItemIndex]:=not Form5.sCheckListBox1.Checked[ItemIndex];
   end;
  end;
 end;
end;

[DiemonStar]

procedure TForm5.sCheckListBox1Click(Sender: TObject);
begin
 with Form5.sCheckListBox1 do
  begin
   if ItemIndex <> -1 then
      if Application.MessageBox(PWideChar('Добавить это значение?'),
                         'Form1', MB_OKCANCEL + MB_ICONQUESTION) = mrOk then
       Checked[ItemIndex]:= Selected[ItemIndex]
      else
       Checked[ItemIndex]:=not Selected[ItemIndex];
  end;
end;

вот так вроде будет проще и понятнее (хотя, по моему мнению, ещё правильнее константы подставить).

[Аватар]

А так еще компактнее

procedure TForm5.sCheckListBox1Click(Sender: TObject);
begin
  with Form5.sCheckListBox1 do
    if ItemIndex <> -1 then Checked[ItemIndex]:=
       Application.MessageBox('Добавить это значение?','Form1', MB_OKCANCEL + MB_ICONQUESTION) = mrOk;
end;

[Человек_Борща]

artemavd, я бы сделал глобальное решение. Не дело это закидывать месэджбоксами.

var
 bChanged:Boolean = false;
 myMass:array of ShortInt;

....
procedure sCheckBoxList1Change(Sender:TObject);
 var
   tmpMass:array of ShortInt;
begin
  if  bChanged then 
  begin
  SetLength(tmpMass,Length(myMASS));
  SetLength(myMASS,sCheckBoxList1.Items.Count);
   for i:=0 to Length(tmpMASS) do
   begin
     try
       myMASS[i]:=tmpMASS[i]; //И тут ко мне пришла идея TList!
     except
       Break; //В случае AV. 
     end;
   end;
  end;
end;

.....

procedure sCheckBoxList1Click(Sender:TObject);
var Indx:Integer;
begin
  indx:=sCheckBoxList1.ItemIndex;
 if Indx <> -1 then
 begin 
   myMASS[Indx]:=ShortInt(sCheckBoxList1.Checked[Selected]);
   sCheckBoxList1.Checked[Indx]:=sCheckBoxList1.Checked[Selected];
 end;
end;
.....
procedure Button1Click(Sender:TObject);
var i:Integer;
begin
    if MessageBox(GetForegroundWindows,PChar('Восстановить исходные        значения?'),PChar('Вопрос!'),MB_YESNO or MB_ICONQUESTION)=IDYES then
  begin
    for i:=0 to sCheckBoxList1.Items.Count -1 do
    begin
     sCheckBoxList1.Checked[i]:=BOOL(myMASS[i]);
    end;
  end; 
end;

Конечно же не самый оптимизированный вариант(см. TList), но этот список не умеет "помнить", и проще придумать комплексное решение. Вам жне нужно бужет следить и за массивом.

bChanged в true ставьте, когда в списке произошло изменение размера этого списка(увеличено, уменьшено, перемещено).