没有试过
不过你可以试试在edit空间中选择onchange事件
然后试试这段代码;
procedure Tform1.Edit1onchange(sender Tobject);
var
i,j:string;
TheList:TstringList;
begin
try
for i:=0 to ListView1.items.count-1 do
begin
if ListView1.items.item[i].selected then
TheList.add(ListView1.items.item[i].caption);
end;
Finally
for j:=0 to TheList.count-1 do
begin
for i:=0 to ListView1.items.count-1 do
begin
if ListView1.items.item[i].caption = TheList.items.string[i] then
ListView1.items.item[i].selected:=true;
end;
end;
end;
end;
手头没有DELPHI我也没有试,你看看能用不,不好使得话联系qq85937063我上班后在研究~~呵呵