Delphi ListView 列项可编辑和TCheckListBox使用代码

Delphi 列项可编辑和TCheckListBox使用代码（XE7下测试通过）

unit testFrm;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.ComCtrls, Vcl.Grids,
  Vcl.DBGrids, Vcl.StdCtrls, Vcl.CheckLst;

type
  TtestFrame = class(TForm)
    lv1: TListView;
    saveBtn1: TButton;
    chklst1: TCheckListBox;
    saveBtn2: TButton;
    edt: TEdit;
    procedure saveBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure saveBtn2Click(Sender: TObject);
    procedure edtChange(Sender: TObject);
    procedure edtExit(Sender: TObject);
    procedure lv1DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  testFrame: TtestFrame;
  nCurIndex : Integer;
implementation

{$R *.dfm}

procedure TtestFrame.FormCreate(Sender: TObject);
begin
    ShowScrollBar(lv1.Handle,SB_HORZ,False);
end;


procedure TtestFrame.lv1DblClick(Sender: TObject);
var
  W,X,nCount,nCol:Integer;
  Rect:TRect;
  Pos : TPoint;
  ColSet:set of 0..0; //屏蔽列段
begin
  ColSet := [0..0];
  if Assigned(lv1.Selected) then
  begin
    Pos := lv1.ScreenToClient(Mouse.CursorPos);
    nCount := lv1.Columns.Count;
    X := GetScrollPos(lv1.Handle,SB_HORZ);
    for nCol := 0 to nCount - 1 do
    begin
      W :=  lv1.Columns[nCol].Width;
      if Pos.X <= X+W then
      begin
        Break;
      end;
      X:=X+W;
    end;
    nCurIndex := nCol;
    if nCol = nCount then
    begin
      Exit;
    end;
    if (nCol in ColSet) then
    begin
      Exit;
    end;
    if X < 0 then
    begin
      Exit;
      W := W+X;
      X := 0;
    end;
    Rect := lv1.Selected.DisplayRect(drBounds);
    Pos.X := X-lv1.Left;
    Pos.Y := Rect.Top;
    MapWindowPoints(lv1.Handle,Handle,Pos,1);
    edt.SetBounds(Pos.X,Pos.Y,W,Rect.Bottom-Rect.Top+3);
    edt.Parent := lv1;
    edt.Top := lv1.Selected.Top;
    edt.Text := lv1.Selected.SubItems[nCurIndex - 1];
    edt.Visible := True;
    edt.SetFocus;
  end;
end;

procedure TtestFrame.edtChange(Sender: TObject);
begin
   lv1.Selected.SubItems[nCurIndex-1] := edt.Text;
end;

procedure TtestFrame.edtExit(Sender: TObject);
begin
  if edt.Text <> '' then
  begin
    lv1.Selected.SubItems[nCurIndex - 1]:=edt.Text;
  end;
  edt.Visible := False;
end;

procedure TtestFrame.saveBtn1Click(Sender: TObject);
var i : Integer;
begin
  lv1.Clear;
  for i := 0 to 30 do
  begin
     with lv1.Items.Add do
     begin
       Caption := '测试1';
       SubItems.Add('测试2');
       SubItems.Add('测试3');
     end;
  end;

  chklst1.Items.AddObject('AAA',TObject(1000));
  chklst1.Items.AddObject('BBB',TObject(1001));
  chklst1.Items.AddObject('CCC',TObject(1002));
end;

procedure TtestFrame.saveBtn2Click(Sender: TObject);
var i : Integer;
begin
   for i := 0 to chklst1.Count - 1 do
   begin
     if chklst1.Checked[i] then
     begin
       ShowMessage(IntToStr(Integer(chklst1.Items.Objects[i])));
     end;
   end;
end;

end.