listbox问题? 如何同时选择listbox1里的几行,并将选定的几行添加到listbox2中?还请指教?? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 listbox1.MultiSelect:= True;var i: integer;begin for i:= 0 to listbox1.SelCount - 1 do ListBox2.Items.AddStrings(ListBox1.Selected[i]);end; listbox1.multiselect := true ;for i := 0 to listbox1.count - 1do if ListBox1.Selected[i] then listbox2.items.add(listbox1.items[i]) 强烈建议DELPHI版更换大版 压缩Access数据库时‘尝试打开的数据库已经被机器 'XXX' 上的用户 'Admin' 以排它的方式打开’问题的解决办法 怎么判断StringGrid中当前选中的单元格? 我碰到一个这样问题,如何解决? [我的难题2]在WINXP下如何 用编程 实现屏蔽掉鼠标的加速功能?????? delphi数据库路径 问大家一下,DELPHI中有三目运算符吗?【VB中IIF】 问两个简单问题 ado+sql server为何这么慢? 如何解决“移过头”的问题? 实现2~36进制间的随意转换 delphi与access或sql数据库连接语句
listbox1.MultiSelect:= True;var
i: integer;
begin
for i:= 0 to listbox1.SelCount - 1 do
ListBox2.Items.AddStrings(ListBox1.Selected[i]);
end;
if ListBox1.Selected[i] then
listbox2.items.add(listbox1.items[i])