Delphi中TSaveDialog有关问题

Delphi中TSaveDialog问题
TSaveDialog在使用的时候出现一个bug。不知道是什么原因，请大家解释一下。

Delphi(Pascal) code

var  SaveDlg:TSaveDialog;begin  SaveDlg:=TSaveDialog.Create(nil);  if SaveDlg.Execute then  begin    ShowMessage(SaveDlg.Files.Strings[0]);  end;end;

这时候不关闭程序。对保存的文件夹进行重命名会提示“重命名出错”。
感觉是某个资源没释放。
请问下如何释放文件夹的资源，达到可以在程序不关闭的情况下重命名文件夹？
求大神解释下。。。。
小弟谢了。

[解决办法]
设计时,SaveDialog1.OPtions属性 这个ofNoChangeDir设置为True
或者创建时
procedure TForm1.FormCreate(Sender: TObject);
begin
SaveDialog1.Options := SaveDialog1.Options + [ofNoChangeDir];
即可

查看更多 下一篇