delphi怎样获得listbox里被鼠标选中的行的内容

Posted 2023-04-23

如题

参考技术A var
s:string;
begin
s:=listbox1.Items.Strings[listbox1.itemindex] ;
edit1.Text :=s;
end; 参考技术B var
s:string;
begin
s:=listbox1.Items[listbox1.itemindex] ;
end;本回答被提问者采纳

关于vb Listbox控件，怎样编写代码才能把List1中的内容复制到List2中呢?

参考技术A 可以用循环的方法,通过List控件的listCount,获得LIST1的行数,然后一行行地添加到LIST2中:
Private
Sub
Command1_Click()
For
i
=
0
To
List1.ListCount
-
1
List2.AddItem
List1.List(i)
Next
End
Sub