請問如何在TListView加上TcheckBox 例如 TListView Col1 Col2 Col3 Col4 ============================================ "Test1" "Test2" Tcheckbox TCheckbox "Test3" "Test4" Tcheckbox TCheckbox

SuperLowB您好 看看這個,或許對您有用 http://www.tmssoftware.com/treelist.htm A treeview with columns that can have width, alignement and column header specified. This is possible through a new introduced Columns property. The item height can be specified through a new property ItemHeight. The image can be set in any of the columns.

多謝pedro，但是它是沒有source code的(因為要比錢)，我想知source code怎樣寫

    幫你search 到    http://delphi.ktop.com.tw/topic.php?topic_id=48604    中的diviner大大的做法,實際測試過ok唷...    

    procedure TForm1.FormCreate(Sender: TObject);
var
  ListItem: TListItem;
  NewColumn: TListColumn;
begin
  // Create a ListView item for each image in the ImageList
  with ListView1 do
  begin
    CheckBoxes := True;
    ViewStyle := vsReport;
    RowSelect := True;        ListItem := Items.Add;
    ListItem.SubItems.Add('Item 1');
    ListItem := Items.Add;
    ListItem.SubItems.Add('Item 2');
    ListItem := Items.Add;
    ListItem.SubItems.Add('Item 3');        // Create two columns to show during viewing as vsReport
    NewColumn := Columns.Add;
    NewColumn.Caption := 'Column 1';
    NewColumn := Columns.Add;
    NewColumn.Caption := 'Column 2';
  end;
end;    procedure TForm1.Button1Click(Sender: TObject);
begin
  if ListView1.Items[0].Checked then
    ShowMessage('Item 1 is checked')
  else
    ShowMessage('Item 1 is unchecked');
end;    

預期你可能會問 如何判斷目前正在勾的是哪一列的checkbox 可以在listview的selectitem事件判斷,參數中已經有selected的結果可以判斷是否勾選了checkbox procedure TForm1.ListView1SelectItem(Sender: TObject; Item: TListItem; Selected: Boolean); begin end;

TListview 只是可以在最左邊加上checkbox，但我想問如果我想在其他column都加上checkBox應如何做? 正如我起初問

引言: 請問如何在TListView加上TcheckBox 例如 TListView

  Col1   Col2      Col3      Col4
============================================
"Test1"  "Test2"   Tcheckbox TCheckbox 
"Test3"  "Test4"   Tcheckbox TCheckbox