网站做多个页面,简述企业网站建设的目的,建设通网站武义巨合汪志刚,企业培训十大热门课程TListBox功能比较全#xff0c;对于选择项#xff0c;有“两种”模式#xff0c;一种就是ListItem选中#xff08;界面上就是焦点和颜色变化#xff09;#xff0c;可以无#xff0c;单选和多选。另一种是通过CheckBox来选择ListItem的选中。默认下#xff0c;ShowChec…TListBox功能比较全对于选择项有“两种”模式一种就是ListItem选中界面上就是焦点和颜色变化可以无单选和多选。另一种是通过CheckBox来选择ListItem的选中。默认下ShowCheckBoxs : True; ListItem左边就显示CheckBox默认是多选的。
需要一种类似VCL的RadioGroup单选列表框。TMS有一个但是太难看了。
如果Item项是固定的可以直接在TRectangle里放置TRadioBox来实现界面还灵活。
但是如果Item项是动态的用拼凑的实现就不灵活了。
直接用TListBox实现也简单:
procedure TForm1.lsb1ChangeCheck(Sender: TObject);
varLIndex: Integer;
beginlsb1.OnChangeCheck : nil;trylsb1.BeginUpdate;tryLIndex : lsb1.ItemIndex;for var I : 0 to lsb1.Items.Count-1 dobeginlsb1.ListItems[I].IsChecked : False;end;lsb1.ListItems[LIndex].IsChecked : True;finallylsb1.EndUpdate;end;finallylsb1.OnChangeCheck : lsb1ChangeCheck;end;
end;
如果不考虑界面的CheckBox的方框这样就可以了。
如果要把默认的CheckBox样式改成RadioBox样式可以修改ListItem的Style把默认的CheckBox的方框图换成RadioBox的圆形图然后设置
DefaultItemStyles.ItemStyle : ListBoxItemStyle1
界面看起来顺眼多了。
实际上通过DefaultItemStyles.ItemStyle可以改变ListItem的许多样式比如字体颜色等等。
