Цитата:
Сообщение от <<D>>
Обернуть выделение:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
for i:= 0 to listview1.Items.Count-1 do
begin
if listview1.Items.Item[i].Selected then
listview1.Items.Item[i].Selected:=false
else listview1.Items.Item[i].Selected:=true;
end;
end;
|
Легче сделать так:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
for i:=0 to ListView1.Items.Count-1 do
ListView1.Items.Item[i].Selected:=not ListView1.Items.Item[i].Selected;
end;
__________________
Что делать, когда сломался комп:
1. Если вы юзер - делать ноги.
2. Если ремонтник - делать деньги.
3. Если вы программист - делать вид, что так было задумано.
|