用Delphi实现图片浏览功能

Author: 连仁包 Date: 2001年 6期

?牐犜贏CDSee中使用上下箭头键浏览图片一定使大家觉得很方便吧，在这里我用Delphi模拟这一功能，方法如下：
　　?牐犑紫龋陆ㄒ桓龉こ蹋诖疤迳戏胖肈irveCombobox控件、DirectorxListBox控件、FileListBox控件、 FilterCombox控件、Image控件各一个。在DirectoryListBox的FileList属性选择FileListBox1，在FilterComboBox的FileList属性选择FileListBox1，在DriveCombobox控件的Dirlist中选择DirectorylistBox1，修改Image的Center属性为True并调节适当的位置和大小。在FilterComBox的文件过滤器Filter属性中添加*.jpg、*.bmp，这里还可以添加其他的Image控件能识别的文件后缀。接下来就可添加代码了。
　　?牐犓鱂ileListBox的onclick事件，添加如下代码：
　　?牐爐ry
　　?牐爄mage1.Picture.LoadFromFile（filelistbox1.FileName）??
　　?牐爀xcept
　　?牐燼pplication.MessageBox（＇文件格式不对＇，＇提示＇，0）;?牔?
　　?牐爀nd;??
　　?牐犉渲衪ry...except语句是错误补捉语句，当文件的格式不对时，提示错误。
　　?牐犗衷诎匆幌翭9，现在可以用上下件浏览图片了！注意：如果发现Image控件不能读jpg格式的文件，可以先在Image控件的picture中指定一个jpg图像。本程序在Win98、Delphi5中通过。