用Delphi实现图片浏览功能

连仁包 
2001年 6期

　　在ACDSee中使用上下箭头键浏览图片一定使大家觉得很方便吧，在这里我用Delphi模拟这一功能，方法如下：
　　　　首先，新建一个工程，在窗体上放置DirveCombobox控件、DirectorxListBox控件、FileListBox控件、 FilterCombox控件、Image控件各一个。在DirectoryListBox的FileList属性选择FileListBox1，在FilterComboBox的FileList属性选择FileListBox1，在DriveCombobox控件的Dirlist中选择DirectorylistBox1，修改Image的Center属性为True并调节适当的位置和大小。在FilterComBox的文件过滤器Filter属性中添加*.jpg、*.bmp，这里还可以添加其他的Image控件能识别的文件后缀。接下来就可添加代码了。
　　　　双击FileListBox的onclick事件，添加如下代码：
　　　　try
　　　　image1.Picture.LoadFromFile（filelistbox1.FileName）　
　　　　except
　　　　application.MessageBox（＇文件格式不对＇，＇提示＇，0）;　
　　　　end;
　　　　其中try...except语句是错误补捉语句，当文件的格式不对时，提示错误。
　　　　现在按一下F9，现在可以用上下件浏览图片了！注意：如果发现Image控件不能读jpg格式的文件，可以先在Image控件的picture中指定一个jpg图像。本程序在Win98、Delphi5中通过。 
 