初学者请教 !如何得到一个image的属性pictrue的图片的文件名称。可以吗？

Question

按vcl提供的功能是不可以的，要不你在设计时作处理了。

Answer 1

是这样的，我想在程序中做一个可以更改背景的程序，在程序退出时判断image的文件名，将这个文件名写入一个ini文件中，下次程序启动时，进行装入。

Answer 2

如果愿意修改一下vcl好了，加一个属性进去，在loadfromfile中设置它，呵呵
不过，还是用全局变量吧，省得麻烦！

Answer 3

那你设置一个默认的先放到ini文件中，
在程序中用一个全局变量和它对应，启动时先用默认的装载，
关闭时保存用户所改的文件名。

Answer 4

既然载入到了Picture中,就不是文件,自然没有文件名!你要的功能实现和Image无关,在loadfromfile之前,将文件名保存到一变量中!

Answer 5

可以这样实现
定一个ini文件myini
[filename]
name='ground.bmp'
然后在form的create事件读取myini的文件
procedure TForm1.FormCreate(Sender: TObject);
var
MyIniFile: TIniFile;
Filename:string;
begin   Filename:='c:\myini.ini';
   MyIniFile := TIniFile.Create(Filename);
   try
     gsgroundfilename:=MyIniFile.ReadString('filename', 'name', 'ground.bmp')
Image1.Picture.LoadFromFile('c:\lxj.bmp');
   finally
     MyIniFile.Free;
   end;
end;
其中 gsgroundfilename为一个全局变量,在用户跟改的地方给其赋值
在form的关闭或destroy事件将gsgroundfilename的名称写入到ini文件