if
bsskinPopupMenu1.PopupComponent = bsskindbimage21 then
begin
bsskindbImage21.Picture.LoadFromFile(OpenPictureDialog1.FileName);
bsskinDBImage21.Picture.SaveToFile(dir21);
end
else
if
bsskinPopupMenu1.PopupComponent = bsskindbimage22 then
begin
bsskindbImage22.Picture.LoadFromFile(OpenPictureDialog1.FileName);
bsskinDBImage22.Picture.SaveToFile(dir22);
end
else
if
bsskinPopupMenu1.PopupComponent = bsskindbimage23 then
begin
bsskindbImage23.Picture.LoadFromFile(OpenPictureDialog1.FileName);
bsskinDBImage23.Picture.SaveToFile(dir23);
end
为什么达不到效果啊 在有的控件上弹出来 image不显示图片啊 乱套了都 求高手解释
解决方案 »
- 数据库中integer类型如何转换为【0..31】的2进制数组
- 问一下。怎么在DELPHI2006中安装FASTREPORT3.2版本
- 如何改变按钮控件的颜色请付源码
- (希望斑竹不要删)一段让人要砍人的录音,我听后很。。。。!(不知道是否过时)
- 300分请教:如何在20万条数据表中抽样出1000条记录
- 制作帮助文件的这个工具shelpm怎么用?谢谢!
- 有谁能给个ado控件实现master/detail表的简单例子程序,我将感激不禁
- 真是奇怪得很!谁能告诉我为什么?????高手请进!!!!
- 分部式查询问题!ZengXi() jackyhuo(jacky)帮帮我吧!
- 我要疯了?各位帮帮我吧。adoquery控件问题
- 线程中对主线程的IMAGE操作,需要考虑同步问题吗?
- 请问如何在dxdbgrid中显示数据库中的JPG图片?
另外文件格式对么?记得delphi6,7里标准的image是不支持jpg的
begin
if OpenPictureDialog1.Execute then
begin
if bsskinPopupMenu1.PopupComponent = bsskindbimage21 then
begin
bsskindbImage21.Picture.LoadFromFile(OpenPictureDialog1.FileName);
bsskinDBImage21.Picture.SaveToFile(dir21);
end
else if bsskinPopupMenu1.PopupComponent = bsskindbimage22 then
begin
bsskindbImage22.Picture.LoadFromFile(OpenPictureDialog1.FileName);
bsskinDBImage22.Picture.SaveToFile(dir22);
end
else if bsskinPopupMenu1.PopupComponent = bsskindbimage23 then
begin
bsskindbImage23.Picture.LoadFromFile(OpenPictureDialog1.FileName);
bsskinDBImage23.Picture.SaveToFile(dir23);
end;
end;
end;有显示图片啊!!!