Question

请教怎么在listview中的某一列添加按钮

Answer 1

在ListView的Item上显示CheckBox与Button 

type 
PItemCtrl = ^TItemCtrl 
PItemCtrl = 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;