listview 控件如何控制其进行分页，请高手指点，急！急！

[lyyxzq]

我想做的是在LISTVIEW控件中进行分页，就是让用户只能看到屏幕上显示的数据，不管用户按上、下键都不能看到上页与下页的数据，那位高手指点

[lxpbuaa]

在TreeView.OnChange中过滤数据

————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————

[ljl0206]

用一个TabControl和listView组合使用

function TFormMain.List(var List: TListView; var Tab: TTabControl;strsql:string;
isNew: boolean): Boolean;
var
q:TAdoQuery;
i,k,TabIndex:integer;
_Item:TListItem;
sList:TStringList;
begin
result:=false;
list.Items.Clear;
TabIndex:=tab.TabIndex;
q:=TAdoQuery.Create(self);
q.Connection:=FormDm.m_Conn;
with q do begin
try
close;
sql.Clear;
sql.Add(strsql);
Active:=true;
RecordSet.PageSize:=_PAGESIZE;
IF IsNew then begin
Tab.Tabs.Clear;
for i:=0 to RecordSet.PageCount-1 do begin
tab.Tabs.Add('第'+inttostr(i+1)+'页');
end ;
TabIndex:=0;
end;
//显示不同的页
i:=(TabIndex*_PAGESIZE);
moveBy(i);
while ((i<=((TabIndex+1)*_PAGESIZE-1)) and (not eof)) do begin
inc(i);
_Item:=List.Items.Add;
//
for k:=0 to Fields.Count-1 do
_item.SubItems.add(Fields[k].AsString);
next;
end;
except
Active:=false;
Free;
exit;
end;
Active:=False;
Free;
end;
Result:=true;
end;

[xingjiaren]

mark

[yyf_321]

http://www.csdn.net/Develop/Read_Article.asp?Id=21959

[47522341]

顶