在ListView列中插入其他组件

procedure TfrmMain.listSrcFileCustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
var                                          //listview中更新显示选择文件
 R: TRect;
begin
  if cdsSelected in State then
  begin
    R := Item.DisplayRect(drLabel);
    pnSelectFile.Left := listSrcFile.Left+listSrcFile.column[0].width;
    pnSelectFile.Top := listSrcFile.Top + R.Top;
    pnSelectFile.Width := 200;
    pnSelectFile.Height := R.Bottom - R.Top4;
    pnSelectFile.Visible:=True;
    edtSelectFile.Text:=sMDBPath+Item.Caption;
    CurItem:=Item;
 end;
end;