问一个listbox的问题(100分)

C

chatop

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-13

• #1

如何将form1上的listbox1的数据（行数未知）copy到listbox2中，而listbox2又在别的form2窗口里
又如何对listbox中的某一行数据进行编辑，也就是说当用户在listbox中触发dbclick的时候，怎么样得知
用户点的是那一行数据？

 

影

影 子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-13

• #2

ItemIndex

 

S

sgs125

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-13

• #3

新建一个strings的对象为a
a := tstringlist.creat(nil);
a.addstrings(listbox1.items);
在form2里面调用
form2.listbox2.items.add(a);

另listbox的itemindex为当前选中行

 

C

chatop

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-13

• #4

能说和再清楚一点吗？我是初学！
public
创建listboxcopy:tstringlist;
--------------------------
form1.create
listboxcopy:=tstringlist.create(nil);
listboxcopy.addstrings(listbox1.items);
form2.listbox2.items.add(listboxcopy);
这样出错！
出错信息
[Error] Unit1.pas(165): Too many actual parameters

 

Y

youou

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-13

• #5

form2.listbox2.items.add(listboxcopy);
===================================
老弟。。
ADD后面要的是STRING类型的参数。。。。。。。

 

C

chatop

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-13

• #6

是呀，编辑器就是说应该用string可惜我不会改，，呵呵
那位大虾帮帮我？？？

 

C

chatop

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-13

• #7

将listboxcopy转成string的用什么函数，，我用str不行，呵呵，我初学，大家教教我吧[]

 

C

chatop

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-13

• #8

help me~~~

 

影

影 子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-13

• #9

不知道要干嘛。
form2.listbox2.Items.Assign(listbox1.Items);

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-13

• #10

Form1.listbox1.items.assign(Form2.listbox2.items)

if listbox1.ItemIndex>=0 then showmessage(listbox1.items(listbox1.ItemIndex));







procedure TForm1.FormCreate(Sender: TObject);

var
I: Integer;
begin
ListBox1.MultiSelect := False;
Button1.Caption := 'Move to Top';
for I := 1 to 10 do
ListBox1.Items.Add('Item ' + IntToStr(I));

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ListBox1.Items.Move(ListBox1.ItemIndex, 0);

end;

 

C

chatop

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-13

• #11

OK,thank you everybody!

 

C

chatop

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-13

• #12

问题又来了！
怎么把listbox1中的所有数据都一次性删掉！
listbox1.item.delete(listbox1.item)不行，还是那个类型问题

 

影

影 子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-13

• #13

listbox1.clear

 

C

chatop

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-13

• #14

哦，知道了，通过通过，谢谢了！！