在ListView的Item中显示CheckBox与Button

在ListView的Item中显示CheckBox与Button,主要思路就是在绘制每一个Item时创建一个CheckBox与Button,并显示在Item对应Column的位置.主要注意于3点:

• 将要显示的CheckBox与Button(其实可以更多其它控件)定义在一个结构中,使用指针连接到Item.Data,以便与该Item对应
• 要检查Item.Data是否为nil,防止重复创建控件
• 通过Item.SubItem所对应的Column.Width得出CheckBox与Button应该放置的坐标

  代码并不难懂,首先定义一个结构:

  type   PItemCtrl = ^TItemCtrl   
    TtemCtrl = record
       CheckBox: TCheckBox;
       Button: TButton;
     end; 
  end;

  　

  procedure TfrmMain.ListView1CustomDrawSubItem(Sender: TCustomListView;

   

    Item: TListItem; SubItem: Integer; State: TCustomDrawState;

   

    var DefaultDraw: Boolean);

   

  var

   

    Rect: TRect;

   

    P: PItemCtrl;

   

  begin

   

    { 第2个子项目上显示CheckBox,第5个子项目上显示Button }

   

    if SubItem in [2, 5] then

   

    begin

   

      DefaultDraw:= False;        // 不显示默认的文本.

   

      Rect:= Item.DisplayRect(drBounds);  // 获取Item显示的区域.

   

   

   

      if Item.Data = nil then     // 如果为空则创建CheckBox及Button.

   

      begin

   

        new(P);   // 创建一个指针用于存储CheckBox及Button.          

   

   

   

        { 创建并显示CheckBox }

   

        P.CheckBox:= TCheckBox.Create(ListView1);

   

        P.CheckBox.Parent:= ListView1;

   

        P.CheckBox.Caption:= '';

   

        P.CheckBox.Width:= 20;

   

        P.CheckBox.Height:= 20;

   

        P.CheckBox.Left:= Rect.Right - ListView1.Columns[3].Width

   

          - ListView1.Columns[4].Width - ListView1.Columns[5].Width

   

          - ((ListView1.Columns[2].Width + P.CheckBox.Width) div 2);

   

        P.CheckBox.Top:= Rect.Top;

   

        P.CheckBox.Visible:= True;

   

        { SubItems[2 -1].Caption为0和1,直接转换为Boolean型并给CheckBox赋值. }

   

        P.CheckBox.Checked:= StrToBool(Item.SubItems[SubItem -1]);

   

   

   

        { 创建并显示Button }

   

        P.Button:= TSpeedButton.Create(ListView1);

   

        P.Button.Parent:= ListView1;

   

        P.Button.Caption:= '...';

   

        P.Button.Width:= 20;

   

        P.Button.Height:= 20;

   

        P.Button.Left:= Rect.Right - ((ListView1.Columns[5].Width

   

          + P.Button.Width) div 2);

   

        P.Button.Top:= Rect.Top;

   

        P.Button.Visible:= True;

   

   

   

        Item.Data:= P;    // 将CheckBox及Button的结构指针保存于Item.Data属性.

   

      end;

   

    end;

   

  end;