关于listbox的问题！50分(50分)

B

babysheep

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-23

• #1

我用了一个listbox和一个按钮，然后想通过点击按钮全选listbox里面的所有item,
首先选择listbox的multiselect属性为true，怎么用程序实现全选？请各位大侠赐教。

 

C

chemer

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-23

• #2

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
listbox1.setfocus;
for i:=0 to listbox1.items.count-1 do
listbox1.Selected:=true;
end;

 

L

linsb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-23

• #3

procedure TForm1.Button3Click(Sender: TObject);
var
i:byte;
begin
for i := 0 to ListBox1.Items.count - 1 do
ListBox1.Selected:=true;
end;

 

B

babysheep

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-23

• #4

接受答案了.