P
pub66cn
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure Addpages;
var
list:Tstrings;
i:integer;
begin
list:=tstringlist.Create ;
main.Myinifile.ReadSection('Pages',list);
for i:=0 to list.Count -1 do
begin
main.ListPages:=TTabSheet.Create(main.PageControl2);
main.ListPages.Parent:=main.PageControl2;
main.ListPages.PageControl:=main.PageControl2;
main.ListPages.caption:=main.Myinifile.Readstring('Pages', list,'');
main.lv :=TListView.Create(main.ListView1);
main.lv.Parent :=main.ListPages;
main.lv.Name :='ListView'+inttostr(i);
main.lv.Align :=alclient;
main.lv.ViewStyle :=vsreport;
main.lv.Columns.Add.Caption :='学号;
main.lv.Columns[0].Width :=280;
main.lv.Columns.Add.Caption :='姓名;
main.lv.Columns[1].Width :=80;
main.lv.Columns.Add.Caption :='姓别;
main.lv.Columns[2].Width :=80;
main.lv.Columns.Add.Caption :='备注';
main.lv.Columns[3].Width :=139;
main.lv.Columns[3].AutoSize :=true;
main.lv.GridLines :=true;
main.lv.OnClick := main.LvClick;
动态创建多个PageControl页，每页都放有一个ListView1控件，创建完后应该怎么判断，我当前所选的是哪个ListView。该如何访问创建来的ListView？
var
list:Tstrings;
i:integer;
begin
list:=tstringlist.Create ;
main.Myinifile.ReadSection('Pages',list);
for i:=0 to list.Count -1 do
begin
main.ListPages:=TTabSheet.Create(main.PageControl2);
main.ListPages.Parent:=main.PageControl2;
main.ListPages.PageControl:=main.PageControl2;
main.ListPages.caption:=main.Myinifile.Readstring('Pages', list,'');
main.lv :=TListView.Create(main.ListView1);
main.lv.Parent :=main.ListPages;
main.lv.Name :='ListView'+inttostr(i);
main.lv.Align :=alclient;
main.lv.ViewStyle :=vsreport;
main.lv.Columns.Add.Caption :='学号;
main.lv.Columns[0].Width :=280;
main.lv.Columns.Add.Caption :='姓名;
main.lv.Columns[1].Width :=80;
main.lv.Columns.Add.Caption :='姓别;
main.lv.Columns[2].Width :=80;
main.lv.Columns.Add.Caption :='备注';
main.lv.Columns[3].Width :=139;
main.lv.Columns[3].AutoSize :=true;
main.lv.GridLines :=true;
main.lv.OnClick := main.LvClick;
动态创建多个PageControl页，每页都放有一个ListView1控件，创建完后应该怎么判断，我当前所选的是哪个ListView。该如何访问创建来的ListView？