Lazarus中文社区

 找回密码
 立即注册(注册审核可向QQ群索取)

QQ登录

只需一步,快速开始

Lazarus IDE and 组件 下载地址版权申明
查看: 1955|回复: 3

关于list box的使用方法请教

[复制链接]

该用户从未签到

发表于 2015-1-15 10:27:59 | 显示全部楼层 |阅读模式
我想做一个下面这样的界面实现把打开的文件按例表的方式显示在list box里面,然后有全选和全不选按钮,选中的前面打勾并可以执行否则不执行,请问代码怎么写?谢谢

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?立即注册(注册审核可向QQ群索取)

x
回复

使用道具 举报

  • TA的每日心情

    2021-8-18 08:54
  • 签到天数: 1421 天

    [LV.10]以坛为家III

    发表于 2015-1-16 09:46:19 | 显示全部楼层
    您可以使用TCheckListBox组件,就在Additional页下。


    Good Luck~

    本帖子中包含更多资源

    您需要 登录 才可以下载或查看,没有账号?立即注册(注册审核可向QQ群索取)

    x
    回复 支持 反对

    使用道具 举报

    该用户从未签到

     楼主| 发表于 2015-1-16 10:47:42 | 显示全部楼层
    cvlsam 发表于 2015-1-16 09:46
    您可以使用TCheckListBox组件,就在Additional页下。


    有没有这样一个按钮,当我点击她的时候弹出一个窗口,窗口里里可以显示文本消息和图片,而这个功能是直接用这个按钮实现的不用写代码?谢谢
    回复 支持 反对

    使用道具 举报

    该用户从未签到

     楼主| 发表于 2015-1-16 14:28:47 | 显示全部楼层
    我想把打开文件夹下面的文件和路径放到列表框里,弹出错误提示,请问语句要怎么写才可以?谢谢



    procedure TForm1.Button1Click(Sender: TObject);
    begin
        OpenDialog1.FileName :='';
        OpenDialog1.Filter :='文件|*.d';
      if OpenDialog1.Execute then
          CheckListBox1 := OpenDialog1.FileName;
    end;

    本帖子中包含更多资源

    您需要 登录 才可以下载或查看,没有账号?立即注册(注册审核可向QQ群索取)

    x
    回复 支持 反对

    使用道具 举报

    *滑块验证:

    本版积分规则

    QQ|手机版|小黑屋|Lazarus中国|Lazarus中文社区 ( 鄂ICP备16006501号-1 )

    GMT+8, 2025-5-2 21:19 , Processed in 0.030644 second(s), 10 queries , Redis On.

    Powered by Discuz! X3.4

    Copyright © 2001-2021, Tencent Cloud.

    快速回复 返回顶部 返回列表