[Delphi] Нужна помошь с TListView

[WinCoder]

Тогда KeyUp. Ибо клик обрабатывается в момент нажатия, когда CheckBox ещё не переключился.

[Аватар]

Тогда KeyUp. Ибо клик обрабатывается в момент нажатия, когда CheckBox ещё не переключился.

Ну да, с каких это пор? OnClick как раз для этого случая, не веришь, проверь:

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  Label1.Caption:=IntToStr(Ord(CheckBox1.Checked));
end;

[Акрам9898]

Сообщение от Аватар

Ну да, с каких это пор? OnClick как раз для этого случая, не веришь, проверь:

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  Label1.Caption:=IntToStr(Ord(CheckBox1.Checked));
end;

Ну да вообще то. Тут полюбому OnClick самое подходящее

[Stilet]

Акрам9898

А зачем так понадобилось делать, если не секрет?

[Акрам9898]

Нашел сам решение. Конечно пришлось повозиться с условиями, но работает норм. Да, и к тому же на checkbox1 создается сразу 3 столбца

procedure TForm1.sCheckBox1Click(Sender: TObject);
begin
  if (sCheckBox2.Checked=False) and (sCheckBox3.Checked=False) then
 begin
  if sCheckBox1.Checked then
  begin
   sListView1.Columns.Add.Caption:='Строка1_1';
   sListView1.Columns.Add.Caption:='Строка1_2';
   sListView1.Columns.Add.Caption:='Строка1_3';
  end
  else

  begin
   sListView1.Column[2].Free;
   sListView1.Column[2].Free;
   sListView1.Column[2].Free;
  end;
 end;

 if (sCheckBox2.Checked) and (sCheckBox3.Checked=False) then
 begin
  if sCheckBox1.Checked then
  begin
   sListView1.Column[2].Caption:='Строка1_1';
   sListView1.Columns.Add.Caption:='Строка1_2';
   sListView1.Columns.Add.Caption:='Строка1_3';
   sListView1.Columns.Add.Caption:='Строка2';
  end
  else

  begin
   sListView1.Column[2].Caption:='Строка2';
   sListView1.Column[3].Free;
   sListView1.Column[3].Free;
   sListView1.Column[3].Free;
  end;
 end;

 if (sCheckBox2.Checked=False) and (sCheckBox3.Checked) then
 begin
  if sCheckBox1.Checked then
  begin
   sListView1.Column[2].Caption:='Строка1_1';
   sListView1.Columns.Add.Caption:='Строка1_2';
   sListView1.Columns.Add.Caption:='Строка1_3';
   sListView1.Columns.Add.Caption:='Строка3';
  end
  else

  begin
   sListView1.Column[2].Caption:='Строка3';
   sListView1.Column[3].Free;
   sListView1.Column[3].Free;
   sListView1.Column[3].Free;
  end;
 end;

 if (sCheckBox2.Checked) and (sCheckBox3.Checked) then
 begin
  if sCheckBox1.Checked then
  begin
   sListView1.Column[2].Caption:='Строка1_1';
   sListView1.Columns[3].Caption:='Строка1_2';
   sListView1.Columns.Add.Caption:='Строка1_3';
   sListView1.Columns.Add.Caption:='Строка2';
   sListView1.Columns.Add.Caption:='Строка3';
  end
  else

  begin
   sListView1.Column[2].Caption:='Строка2';
   sListView1.Columns[3].Caption:='Строка3';
   sListView1.Column[4].Free;
   sListView1.Column[4].Free;
   sListView1.Column[4].Free;
  end;
 end;
end;

procedure TForm1.sCheckBox2Click(Sender: TObject);
begin
 if (sCheckBox1.Checked) and (sCheckBox3.Checked=False) then
 begin
  if sCheckBox2.Checked then sListView1.Columns.Add.Caption:='Строка2'
  else sListView1.Column[5].Free;
 end;

 if (sCheckBox1.Checked=False) and (sCheckBox3.Checked) then
 begin
  if sCheckBox2.Checked then
  begin
   sListView1.Column[2].Caption:='Строка2';
   sListView1.Columns.Add.Caption:='Строка3';
  end
  else

  begin
   sListView1.Column[2].Caption:='Строка3';
   sListView1.Column[3].Free;
  end;
 end;

 if (sCheckBox1.Checked) and (sCheckBox3.Checked) then
 begin
  if sCheckBox2.Checked then
  begin
   sListView1.Column[5].Caption:='Строка2';
   sListView1.Columns.Add.Caption:='Строка3';
  end
  else

  begin
   sListView1.Column[5].Caption:='Строка3';
   sListView1.Column[6].Free;
  end;
 end;

  if (sCheckBox1.Checked=False) and (sCheckBox3.Checked=False) then
 begin
  if sCheckBox2.Checked then sListView1.Columns.Add.Caption:='Строка2'
  else sListView1.Column[2].Free;
 end;

end;

procedure TForm1.sCheckBox3Click(Sender: TObject);
begin
  if (sCheckBox1.Checked=False) and (sCheckBox2.Checked=False) then
 begin
  if sCheckBox3.Checked then sListView1.Columns.Add.Caption:='Строка3'
  else sListView1.Column[2].Free;
 end;

 if (sCheckBox1.Checked) and (sCheckBox2.Checked=False) then
 begin
  if sCheckBox3.Checked then sListView1.Columns.Add.Caption:='Строка3'
  else sListView1.Column[5].Free;
 end;

 if (sCheckBox1.Checked=False) and (sCheckBox2.Checked) then
 begin
  if sCheckBox3.Checked then sListView1.Columns.Add.Caption:='Строка3'
  else sListView1.Column[3].Free;
 end;

 if (sCheckBox1.Checked) and (sCheckBox2.Checked) then
 begin
  if sCheckBox3.Checked then sListView1.Columns.Add.Caption:='Строка3'
  else sListView1.Column[6].Free;
 end;
end;

[Акрам9898]

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

А зачем так понадобилось делать, если не секрет?

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

[Stilet]

Ну и следовательно, если активны чекбоксы, то добавлять доп. данные

Да, но почему сразу не сделать три колонки? Зачем их удалять-создавать?

[Акрам9898]

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

Да, но почему сразу не сделать три колонки? Зачем их удалять-создавать?

Ну незнаю, мне так как то больше нравится. Поудобней так что ли))

[Stilet]

Ну тады вопросв нет. Удобство - фактор сурьезный.