try
Image1.Picture.LoadFromFile(filelistbox1.Items [filelistbox1.itemindex]);
except
showmessage('出错');
end;
Image1.Picture.LoadFromFile(filelistbox1.Items [filelistbox1.itemindex]);
except
showmessage('出错');
end;
解决方案 »
- 怎样写1G的文件,最后字节为F
- 请问高手一个小问题
- (急)关于解压缩RAR文件包的一些问题
- 谁知道哪儿有delphi的中文帮助下吗?
- 请问如何只测试某个控件?
- 关于《花生壳》软件!
- ctrl+回车怎么判断
- 如何在fastReport中,按组分类,并且不能在同一页中打印两个不同的组,而且要在每页的页头打印组类别?每组的最后一行加上同一组的je求和.还
- 怎样使用创建的基于TDBGrid的组件?
- delphi7程序在win7里如何显示大图标
- 如何测试数据库能否连接成功
- 把listview的viewstyle属性设为vsReport。怎样使得popupmenu只在鼠标右击listview中的item时弹出,而右击listview的其他地方时不弹出?怎样
试试
if Not assigned(iamge1.picture) then showmessage('no loaded!');