listview

Question

谁有关于listview的列子。
listview中属性:Checkboxes为true时
如果有弹出菜单。在前面打上钩。
语句怎么写呀？

Answer 1

var
  i:integer;
begin
      if TListView(Sender).ItemIndex>=0 then  // °ÑListView1¸ÄΪTListView(Sender)
        begin
          i:=TListView(Sender).ItemFocused.Index;
          //edit2.Text:=TListView(Sender).Items[i].SubItems[1] ;          //TListView(Sender).Items[i].Delete;
        end
end;