用ListView制作导航界面.docVIP

用ListView制作导航界面 首先还是先插入个导航界面： ?????? 以前看到这种界面时，都不知道那是用什么控件做的，每个项还带图标的，以为是用的Additional里面的BitBtn实现的；其实不然，它是由TListView制作的；在日常的使用中，我还经常用到ListView，但却一直没有发现它还有上面的用法，只能说明以前自己对Delphi的基础控件ListView的使用只知一二，真感惭愧；现在和大家一起学习，这里只将该功能实现下，下章再做系统学习： ?????? TListView控件能响应鼠标的双击事件，所以设计程序时利用TlistView制作导航界面会使程序更具有特色；首先为了让TListView上能显示图标，它有两个图标属性，一个是大图标的LargeImages，用来在界面上显示大图标；另一个是小图标的SmallImages，用来显示小图标；然后将它的视图显示模式ViewStyle属性设为vsIcon模式，这样显示的默认的就是大图标（当然这里是必须在设计时或程序中指定）；如果要在界面上显示小图标，就选择vsSmallIcon模式；主要实现代码如下： procedure TForm1.FormCreate(Sender: TObject);vartemp: TListItem;i: Integer;beginFor i := 0 to ToolBar1.ControlCount-1 dobegin??? temp := ListView1.Items.Add;??? temp.Caption := ToolBar1.Controls[i].Hint;??? temp.ImageIndex := TToolButton(Toolbar1.Controls[i]).ImageIndex;end;end; procedure TForm1.ListView1DblClick(Sender: TObject);vari: Integer;beginif ListView1.Selected Nil then???? //当前是否有视图被选中begin??? For i := 0 to ToolBar1.ControlCount-1 do????? if ListView1.Selected.Caption = ToolBar1.Controls[i].Hint then????? begin??????? TToolButton(ToolBar1.Controls[i]).Click;??????? Break;????? end;end;end; procedure TForm1.N5Click(Sender: TObject);beginApplication.CreateForm(TForm2,Form2);Form2.ShowModal;Form2.Free;end;