ListView и Checkboxes

[KWN, lnc]

пожалуйста помогите. не могу определить какой именно Checkboxes изменился и вывести его в ListView.ItemIndex;

если не задевать полосу то он не определяет.

[Stilet]

Тоесть?

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
 TCheckBox(sender) - дает тебе кликнутый чекбокс
end;

Понятен смысл?. Отталкивайся от Sender.

[KWN, lnc]

Stilet извини но я не понял. у меня ListView и в нем есть Checkboxes мне нужно его отсечь! ((( помоги! если можно кодом.. вот именно нужно определить ListView.ItemIndex в измененом CheckBox(е)

[Stilet]

Смотри:

var i:integer;
begin
 with ListView1.Items do
  for i:=0 to Count-1 do
   if Item[i].Checked then ...

end;

Банальный перебор.

[KWN, lnc]

procedure TForm1.ListView1Change(Sender: TObject;
  Item: TListItem; Change: TItemChange);
var
 i:integer;
begin
 with ListView1.Items do
  for i:=0 to Count-1 do
   if Item[i].Checked then begin
 ListView1.ItemIndex := i;
 end;
end;

у меня ощибка ((

Stilet, выручи! пожалуйста

[Stilet]

Чем выручить то? Ты ничего не сказал.
И потом, уж лучше так:

var
 i:integer;
begin
 with ListView1.Items do
  for i:=0 to Count-1 do
   if Item[i].Checked then begin 
    ListView1.ItemIndex := i;
    break;
   end;
end;

[KWN, lnc]

Stilet, как не странно. все равно та жа ощибка ((

[Stilet]

Наверное ты не тем путем идешь.
Тебе видимо нужно что-то вроде:

procedure TForm1.ListView1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var l:TListItem;
begin
 l:=ListView1.GetItemAt(x,y);
 if l<>nil then l.Selected:=true;
end;

На событие OnMouseDown

[KWN, lnc]

Stilet, огромное спасибо! выручил!!! тему можно закрывать! :-)