关于listbox用法，高手进，在线等..... VCL组件开发及应用http://www.delphi2007.net/DelphiVCL/html/delphi_20061225120329130.html
在做权限设置时我想用listbox框来操作：
加两个listbox框，listbox1,listbox2
listbox1里列出备选的权限，listbox2用来放已选择的权限。
当双击listbox1里的某项权限时（比如，“修改记录”权限），所选权限（如“修改记录”权限）自动移动到listbox2里面，请问怎样实现呀？大侠指点............
双击 这个不会 不过用个按钮到会
LBoxDest.Items.Add( LBSrc.Items[ LBSrc.ItemIndex ] );
记得要处理异常，判断重复项
怎样判断重复呀？？？
还有就是移动后，原listbox1里就不要有了移动项了
大家帮忙啊
移动后
从 listbox1 里删除掉他就可以实现不重复了嘛。
indexof( '' )是否等于-1
详细一下呀，比如我要移动多项呀，怎么能删除其它的呢
to hongqi162（失踪的月亮）：
你是个高手，又有一个问题，就是删除一个listbox1里的一个items项目后，怎样让剩下的项目重新排列一个呀？？
var i:integer;
begin
for i:=listbox1.Count-1 downto 0 do
if listbox1.Selected[i] then begin
listbox2.Items.Add(listbox1.Items[i]);
listbox1.Items.Delete(i);
end;
end;