有没有快速的办法，让LISTVIEW中所有的ITEM被选中?(30分)

M

mafan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-09

• #1

 

L

lha

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-09

• #2

try this :

procedure TForm1.Button1Click(Sender: TObject);
var i :integer ;
begin
ListView1.SetFocus;
for i := 0 to ListView1.Items.Count-1 do
begin
ListView1.Items.Selected:= true;
end;
end;

OK? 嘻嘻，给分吧！

 

M

mafan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-09

• #3

这么土的办法，我也会。其实我在OnSelectItem作了些见不得人的事情，所以一怎么操作
就。。。。。象死机了一样！：(

同样，在取消选中的时候也是这样

 

M

mafan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-09

• #4

这么土的办法，我也会。其实我在OnSelectItem作了些见不得人的事情，所以一怎么操作
就。。。。。象死机了一样！：(

同样，在取消选中的时候也是这样

 

T

terry_lzs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-09

• #5

其实你可以设置一个全局变量作为开关变量
var flag:boolean;
procedure TForm1.Button1Click(Sender: TObject);
var i :integer ;
begin
flag:=false;
ListView1.SetFocus;
for i := 0 to ListView1.Items.Count-1 do
begin
ListView1.Items.Selected:= true;
end;
flag:=true;
end;

在你的onselectitem事件中判断flag如果为true就执行代码，如果为false就不执行就行了

 

L

lha

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-11

• #6

“其实我在OnSelectItem作了些见不得人的事情，所以一怎么操作
就。。。。。象死机了一样！：(”

考！ 不早说！

“这么土的办法”
呵呵，你这么厉害 ，居然还不知道 先把自己的问题讲清楚。

 

M

mafan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-15

• #7

lha:如果如你的回答，我想30分太多了，1分就够了

 

L

lha

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-15

• #8

这一分给我也是多余的。