TListView - позволить выбирать только одну галочку Checkbox

[Михаил Юрьевич]

Как в ListView при установленном Checkboxes отследить чикеты.
Нужно что бы можно было выбрать только один , как в RadioGroup

[ResourceSpace]

Type
      TForm1 = Class(TForm)
            ListView1: TListView;
            Procedure FormCreate(Sender: TObject);
            Procedure ListView1Change(Sender: TObject; Item: TListItem; Change: TItemChange);
            Procedure ListView1Deletion(Sender: TObject; Item: TListItem);
      Private { Private declarations }
            ListView1CheckedItemIndex: Integer;
      Public { Public declarations }
      End;

.....

Procedure TForm1.FormCreate(Sender: TObject);
Begin
ListView1CheckedItemIndex:=-1;
End;

Procedure TForm1.ListView1Change(Sender: TObject; Item: TListItem; Change: TItemChange);
Begin
If ListView1CheckedItemIndex<0 Then
      If Item.Checked Then
            ListView1CheckedItemIndex:=Item.Index
      Else
Else
      If Item.Checked Then
            If Item.Index<>ListView1CheckedItemIndex Then
                  Begin
                  ListView1.Items.Item[ListView1CheckedItemIndex].Checked:=False;
                  ListView1CheckedItemIndex:=Item.Index;
                  End
            Else
      Else
            If Item.Index=ListView1CheckedItemIndex Then
                  ListView1CheckedItemIndex:=-1;
End;

Procedure TForm1.ListView1Deletion(Sender: TObject; Item: TListItem);
Begin
If Item.Index=ListView1CheckedItemIndex Then
      ListView1CheckedItemIndex:=-1;
If Item.Index<ListView1CheckedItemIndex Then
      Dec(ListView1CheckedItemIndex);
End;

Прошу переименовать тему как "TListView - позволить выбирать только одну галочку Checkbox".

[Stilet]

Если в твоем Делфи есть событие OnItemChecked, то можно попробовать так:

procedure TForm1.ListView1ItemChecked(Sender: TObject; Item: TListItem);
var i:integer;
begin
  with TListView(Sender) do begin
    i:=tag;
    if (tag>=0)and(tag<Items.Count) then
     Items[tag].Checked:=false;
    tag:=Item.Index;
	end;
end;

[Iron Monk]

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

Если в твоем Делфи есть событие OnItemChecked, то можно попробовать так:

procedure TForm1.ListView1ItemChecked(Sender: TObject; Item: TListItem);
var i:integer;
begin
  with TListView(Sender) do begin
    i:=tag;
    if (tag>=0)and(tag<Items.Count) then
     Items[tag].Checked:=false;
    tag:=Item.Index;
	end;
end;

А если нету, то так:

procedure TForm1.ListView1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
 var
   Item: TListItem;
   ht: THitTests;
   i: integer;
 begin
  Item := ListView1.GetItemAt(x, y);
  ht := ListView1.GetHitTestInfoAt(x, y);
    if (Item <> nil) and (ht = [htOnStateIcon]) then
    begin
       with TListView(Sender) do begin
          i:=tag;
          if (tag>=0)and(tag<Items.Count) then
           Items[tag].Checked:=false;
          tag:=Item.Index;
        end;
      Item.Checked:= true;
    end;
 end;
end.

[Михаил Юрьевич]

Сообщение от Iron Monk

А если нету, то так:

Есть! Всем спасибо!