"Lars Holm Thomsen" <aslaktoke-RE-MO-VE-toke@yahoo.NOTdk> skrev i en
meddelelse news:b3rve0la2f6o04lrbtuuq8odii3avfatnp@4ax.com...
> On Sat, 10 Jul 2004 14:52:47 +0200, "Harald"
<news10@-REMOVE-THIS-kroning.dk> wrote:
>
>
> >Det tror jeg man er nød til at gøre manuelt dvs. enten have en tæller for
> >hvor mange der er checked eller hvis der ikke er ret mange items i listen
så
> >løbe listen igennem og tælle sammen.
>
>
> Ja, det er jeg med på, jeg benytter det sidste, for jeg har kun 10.
>
> Problemet er, at Listview.GetItemAt eller ListView.GetNearestItem ikke
virker - returnerer
> blot "nil"!
>
> Hvis jeg nemlig kunne få returneret ListItem kunne jeg blot skrive
ListItem.Checked:=false
> hvis der efter et klik på en checkbox blev talt fire checkede!
>
> Har du en løsning på dette
F.eks. denne kode un-checker alle dem der er checked:
var
i : integer;
begin
for i:=0 to ListView.Items.Count-1 do
if ListView.Items[i].Checked then
ListView.Items[i].Checked:=false;
end;
Eller hvis du f.eks. laver denne OnChange procedure for din ListView:
procedure TForm1.ListViewChange(Sender: TObject; Item: TListItem;
Change: TItemChange);
var
i,CheckCount : integer;
begin
CheckCount:=0;
for i:=0 to ListView.Items.Count-1 do
if ListView.Items[i].Checked then
inc(CheckCount);
if CheckCount>3 then
begin
Item.Checked:=false;
ShowMessage('Der er allerede 3 checked');
end;
end;
/HK