如题
解决方案 »
- 怎么用Delphi编写出一个矩阵
- gif图片旋转
- 如何读取excelsheet 中rang['a1,'a1']的批注?
- idtcpserver 和 idtcpclient有没有 ondatareceive或着 onreceive事件
- delphi怎么处理UCS2字符?
- Delphi+MapX求助!!!
- 关于listbox和ProgressBar的两个初级问题
- Delphi6中SQLConnection组件可以连接SQl Server吗?
- 创建良好设计的代码(基于Delphi/VCL)
- Delphi报表分列问题
- delphi/bcb中修改外部程序的companyname等版权信息
- 怎样将Panel上显示的内容 有选择性地 打印出来
edit1.text:=listbox1.Items.Strings[listbox1.ItemIndex];if listbox1.items[i].selected then
listbox2.add(listbox1.items[i]);
适用于单项的情况edit1.text:=listbox1.Items.Strings[listbox1.ItemIndex]; if listbox1.items[i].selected then
listbox2.add(listbox1.items[i]);
适用于多项的情况
var i: integer;for i:=0 to listbox.items.count-1 do begin
if listbox.items[i].selected then XXX
end;
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
for i:=0 to ListBox1.Items.Count-1 do
if ListBox1.Selected[i] then
memo1.Lines.Add(ListBox1.Items[i]);
end;
ListBox1.MultiSelect:=True;
for i:=0 to ListBox1.Items.Count-1 do
if ListBox1.Selected[i] then
ListBox2.Items.add(ListBox1.Items[i]);