请问如何在listview中的某一列添加按钮 即listview有多少行,即有多少个相应的按钮。当我按其中的一个按钮时,即可对此行的数据进行设置。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 在ListView的Item上显示CheckBox与ButtontypePItemCtrl = ^TItemCtrlPItemCtrl = recordCheckBox: TCheckBox;Button: TButton;end;end;procedure TfrmMain.ListView1CustomDrawSubItem(Sender: TCustomListView;Item: TListItem; SubItem: Integer; State: TCustomDrawState;var DefaultDraw: Boolean);varRect: TRect;P: PItemCtrl;begin{ 第2个子项目上显示CheckBox,第5个子项目上显示Button }if SubItem in [2, 5] thenbeginDefaultDraw:= False; // 不显示默认的文本.Rect:= Item.DisplayRect(drBounds); // 获取Item显示的区域.if Item.Data = nil then // 如果为空则创建CheckBox及Button.beginnew(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; 类似游戏登陆器那种半透明异形窗体是怎么实现的 如何用DBGridEh输入数据并保存 关于一个功能实现的疑问 年后工作好不好找啊!???? 测试一下新版,怎么看自己的分? 有谁知道怎么现实考试试题自动生成系统 使用SPCOMM的串口通讯问题! 怎样用CLIENTSOCKET获取GIF或JPG等文件的数据 有N个人经过N天都没解决的问题!!!! 如何判断所输入的时间是否正确? 关于网页按钮的问题 怎样使Edit的OnClick事件属性不在属性编辑器中出现
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);varRect: TRect;P: PItemCtrl;begin{ 第2个子项目上显示CheckBox,第5个子项目上显示Button }if SubItem in [2, 5] thenbeginDefaultDraw:= False; // 不显示默认的文本.Rect:= Item.DisplayRect(drBounds); // 获取Item显示的区域.if Item.Data = nil then // 如果为空则创建CheckBox及Button.beginnew(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;