hsr/////////////////////////////////////////////////////////////////
1.체크여부
procedure TForm1.Button6Click(Sender: TObject);
var
i : integer;
begin
for i:= 0 to ListView1.Items.Count-1 do
if ListView1.Items.Item[i].Checked then showmessage(ListView1.Items.Item[i].Caption);
end;
1.체크여부
procedure TForm1.Button6Click(Sender: TObject);
var
i : integer;
begin
for i:= 0 to ListView1.Items.Count-1 do
if ListView1.Items.Item[i].Checked then showmessage(ListView1.Items.Item[i].Caption);
end;
2.원하는 아이템에 체크하기
ListView1.Items.Item[아이템인덱스번호].Checked := True;
3.체크시점에 이벤트이용시 OnChange이벤트사용
procedure TForm1.ListView1Change(Sender: TObject; Item: TListItem;
Change: TItemChange);
begin
Edit1.Text := Item.Caption + boolToStr(Item.Checked,TRUE);
end;