mlsb.net
当前位置:首页 >> DElphi listviEw 拖拽 >>

DElphi listviEw 拖拽

ShowScrollBar(listview.Handle,SB_HORZ,false).//隐藏水平滚动条 ShowScrollBar(listview.Handle,SB_VERT,false).//隐藏垂直滚动条 ShowScrollBar(listview.Handle,SB_BOTH,false).//隐藏所有滚动条

试编写代码如下: procedure TForm1.Button3Click(Sender: TObject);begin ListView1.SetFocus; ListView1.ItemIndex := 80; //设置选中第80行 ListView1.Selected.MakeVisible(True);end;

if self.ListView1.Items.Count > 0 then Begin self.ListView1.ItemIndex := self.ListView1.Items.Count-1; self.ListView1.Items[self.ListView1.ItemIndex] .MakeVisible(False); self.ListView1.SetFocus; End;

这个是拖拽方面的事了,就是DragDrop相关方面的编程了,这个这里估计讲不清楚。只能发给你这方面的参考源码,TreeView拖拽源码,Delphi写TreeView DragDrop http://bbs.txwb.com/thread-372450-1-1.html 里面是用treeview这个控件演示的。放到li...

//增加项或列(字段) ListView1.Clear; ListView1.Columns.Clear; ListView1.Columns.Add; ListView1.Columns.Add; ListView1.Columns.Add; ListView1.Columns.Items[0].Caption:='id'; ListView1.Columns.Items[1].Caption:='type'; ListView1.C...

首先选中记录 ListView1.Items.Item[i].Selected; 然后使其可见 ListView1.Selected.MakeVisible(True);

for i:= 0 to stringlist.count - 1 dobegin Listview.items.add.caption := stringlist[i];end;

1、最接近的是ValueListEditor,Delphi自带,在Additional页面; 2、ListView,可以做出相同的效果,在Win32页面; 3、第三方控件就更多了,去问控件党吧,恕我无知。

additem.subitems.add(''); 这行就是加了个空行啊?你去掉了,就从第一行开始了..

ViewStyle是什么模式 如果是vsIcon模式的话,只要将IconOptions属性的Arrangement设为iaLeft即可。

网站首页 | 网站地图
All rights reserved Powered by www.mlsb.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com