首先采用了一个tlistboxt组件,style设置为lbOwnerDrawFixed这样就可以在Listbox1的DRAWITEM过程中定义listbox的显示样式代码
　　在form.create()中添加
　　listbox1.items:=screen.font;
　　//将系统中的所有字体列入到listboxt中；
　　由于上面设置了listbox style为blOwnerDrawFixed;所以每写一条item则产生一个DrawItem事件
　　procedure form1.listbox1DrawItem()
　　begin
　　with listbox.canvas do
　　 fillrect(rect);// 选中时，进行填充；
　　 font.name:=listbox.items[index];
　　 textout(rect.left+1,rect.top+1,listbox.item[index]);
　　end;
　　－－－－－－－
　　系统时间的设置
　　 应用到一个TDateTimePickr组件，一个Kind设置为dtDate,另一个为dtTime分别用于显示日期和时间;一个T
　　 设一个TsystemTime型的变量myTime，在DateTimePicker的
　　onchange事件中添加
　　 DateTimeTosystemTime(datetimepicker.date,myTime);
　　 setlocaltime(mytime);