| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> DELPHI技术 斑竹:liumazi,sephil | |||||
| 作者： |
|
2004/3/20 15:15:08 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | 两个ListBox: ListBox1,ListBox2 并排放置,并没打开排序功能 在ListBox1click中加入: ListBox2.ItemIndex := ListBox1.ItemIndex; 在ListBox2click中加入: ListBox1.ItemIndex := ListBox2.ItemIndex; 这样做能让两个列表框同步选择,视觉上同一行(我要的效果),但当有一个列表手动滚下几屏后,视觉上就不要同一行了.请问怎样才能视觉上做到同一行呢? ---------------------------------------------- - |
|||||
| 作者： |
|
2004/3/21 1:55:07 | ||||
| 1楼： | 呵呵，多研究下下控件的自帶功能吧 procedure TForm1.ListBox1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin ListBox2.ItemIndex := ListBox2.ItemAtPos(Point(X, Y), True); end; procedure TForm1.ListBox2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin ListBox1.ItemIndex := ListBox1.ItemAtPos(Point(X, Y), True); end; ---------------------------------------------- ——混世生 |
|||||
| 作者： |
|
2004/3/22 9:10:36 | ||||
| 2楼： | 谢谢1楼的,但按你的方法不行,没出错,但也无效果,如删除我上面的语句后,有效果了,但只是视觉同行,对应的就不能相同了(列表1滚动后,选中屏中显示的第一行,列表2就只能选中第一行,不能和列表1一样滚动后再选中). ---------------------------------------------- - |
|||||
| 信息 |
| 登陆以后才能回复 |
