在delphi中的listview控件中画控件CheckBox,怎么判读是否选中。

wangfei1812 2011-03-27 07:23:17
请问:在delphi中的listview控件中画控件CheckBox,怎么全选画的控件CheckBox控件为true。或对每一个进行判断是否打勾。怎么才能对每一行CheckBox.Checked的值进行判断。

注意,不是listview控件自带CheckBox,那个是默认第排。我是画的可以随便定义。


下边是画的控件代码。 知道快帮我写下代码。。。。。谢谢了。


1.先定义结构:

type
PItemCtrl = ^TItemCtrl;
TItemCtrl = record
viewCheckBox: TCheckBox;
markCheckBox: TCheckBox;
guidCheckBox: TCheckBox;
end;

2.在listview的CustomDrawSubItem事件中写如下代码;

var
Rect: TRect;
P: PItemCtrl;
begin
if SubItem in [1,2,3] then
begin
DefaultDraw:= False; // 不显示默认的文本.
Rect:= Item.DisplayRect(drBounds); // 获取Item显示的区域.
if Item.Data = nil then // 如果为空则创建CheckBox及Button.
begin
new(P); // 创建一个指针用于存储CheckBox及Button.
{ 创建并显示CheckBox }
P.viewCheckBox:= TCheckBox.Create(ListView1);
P.viewCheckBox.Parent:= ListView1;
P.viewCheckBox.Caption:= '';
P.viewCheckBox.Width:= 20;
P.viewCheckBox.Height:= 20;
P.viewCheckBox.Left:= Rect.Right - ListView1.Columns[2].Width
- ListView1.Columns[3].Width
- ((ListView1.Columns[1].Width + P.viewCheckBox.Width) div 2);
P.viewCheckBox.Top:= Rect.Top;
P.viewCheckBox.Visible:= True;

// showmessage(inttostr(SubItem));
{ SubItems[2 -1].Caption为0和1,直接转换为Boolean型并给CheckBox赋值. }
P.CheckBox.Checked:= StrToBool(Item.SubItems[SubItem-1]);
//创建并显示Button
{P.Button:= TRadioButton.Create(ListView1);
P.Button.Parent:= ListView1;
P.Button.Caption:= '...';
P.Button.Width:= 20;
P.Button.Height:= 20;
P.Button.Left:= Rect.Right - ((ListView1.Columns[3].Width
+ P.Button.Width) div 2);
P.Button.Top:= Rect.Top;
P.Button.Visible:= True;}
P.markCheckBox:= TCheckBox.Create(ListView1);
P.markCheckBox.Parent:= ListView1;
P.markCheckBox.Caption:= '';
P.markCheckBox.Width:= 20;
P.markCheckBox.Height:= 20;
P.markCheckBox.Left:= Rect.Right - ListView1.Columns[3].Width

- ((ListView1.Columns[2].Width + P.markCheckBox.Width) div 2);
P.markCheckBox.Top:= Rect.Top;
P.markCheckBox.Visible:= True;

////
P.guidCheckBox:= TCheckBox.Create(ListView1);
P.guidCheckBox.Parent:= ListView1;
P.guidCheckBox.Caption:= '';
P.guidCheckBox.Width:= 20;
P.guidCheckBox.Height:= 20;
P.guidCheckBox.Left:= Rect.Right

- ((ListView1.Columns[3].Width + P.guidCheckBox.Width) div 2);
P.guidCheckBox.Top:= Rect.Top;
P.guidCheckBox.Visible:= True;
Item.Data:= P; // 将CheckBox及Button的结构指针保存于Item.Data属性.
end;

end;


end;

...全文
850 10 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
10 条回复
切换为时间正序
请发表友善的回复…
发表回复
skyliu1234 2011-03-30
  • 打赏
  • 举报
回复
for i:=0 to self.ListView1.Items.Count - 1 do
begin
if PItemCtrl(self.ListView1.Items[i].Data).viewCheckBox.Checked then
showmessage(format('%d viewCheckBox',[i]));
if PItemCtrl(self.ListView1.Items[i].Data).markCheckBox.Checked then
showmessage(format('%d markCheckBox',[i]));
if PItemCtrl(self.ListView1.Items[i].Data).guidCheckBox.Checked then
showmessage(format('%d guidCheckBox',[i]));
end;
wangfei1812 2011-03-30
  • 打赏
  • 举报
回复
没人顶下么?
dinoalex 2011-03-29
  • 打赏
  • 举报
回复
用record

type
plvcol = ^lvcol
lvcol = record
col1: boolean;
col2: boolean;
...
end

然后使用 plvcol 传给Data就可以操作了.

数组 array of integer 也行啊!!

重画的时候,根据Data读取,然后遍历数组或变体来确定是否为选上了.
wangfei1812 2011-03-29
  • 打赏
  • 举报
回复
用指针一条一条的判断?好像越来越晕乎了。老大们有没有列子发个参考下!

wangfei1812@163.com 谢谢啦。
kye_jufei 2011-03-29
  • 打赏
  • 举报
回复
要用data去操作record指針。。。
dinoalex 2011-03-28
  • 打赏
  • 举报
回复
LISTVIEW本来就有CHECKBOX!! 何必这么麻烦~~
dinoalex 2011-03-28
  • 打赏
  • 举报
回复
ListView1.Checkboxes := True;

for i:= 0 to ListView1.Items.Count -1 do
if ListView1.Items[i].Checked then
wangfei1812 2011-03-28
  • 打赏
  • 举报
回复
dinoalex
你的方法我知道。。。我是要画在别的行。继续给力啊

代码里已经将P传给ListItem的Data,根据Data就可以设置ListItem所对应的那几个CheckBox的Checked属性了、、

要怎么判断,我试了下,没法子判断,请给出代码好么?谢谢
wangfei1812 2011-03-27
  • 打赏
  • 举报
回复
网上抓的啦,哈哈,没搞明白怎么判断,
CaiBirdy 2011-03-27
  • 打赏
  • 举报
回复
你确定代码是你自己写的??

代码里已经将P传给ListItem的Data,根据Data就可以设置ListItem所对应的那几个CheckBox的Checked属性了、、

5,927

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧