listview 的 checked 问题

liuxingstar 2006-10-31 10:45:40
怎么样 在打勾的时候 直接显示打钩行的 caption。
...全文
158 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
liuxingstar 2006-10-31
  • 打赏
  • 举报
回复
问题已解决谢谢
liuxingstar 2006-10-31
  • 打赏
  • 举报
回复
是这样的
procedure TForm1.ListView1Click(Sender: TObject);
begin
if ListView1.Selected.Checked then
showmessage(ListView1.Selected.Caption);

end;

问题在于 如果 selected 不改变 而去选择其他的话 就显示不出当前操作的行了
liuxingstar 2006-10-31
  • 打赏
  • 举报
回复
是在鼠标点击的事件里
打勾就显示 不打勾就取消
王集鹄 2006-10-31
  • 打赏
  • 举报
回复
//你说的是这样?
procedure TForm1.ListView1Change(Sender: TObject; Item: TListItem;
Change: TItemChange);
var
I: Integer;
S: string;
begin
if ctState = Change then
begin
S := '';
for I := 0 to TListView(Sender).Items.Count - 1 do
if TListView(Sender).Items[I].Checked then
S := S + ',' + TListView(Sender).Items[I].Caption;
Delete(S, 1, 1);
Caption := S;
end;
end;

5,386

社区成员

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

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