delphi savediglog多次保存问题

我在用mainmenu菜单控件和savediglog控件设置保存文件对话框时，虽然能够顺利保存文件，但是我对已经保存过的文件进行再次保存的时候，并不能和很多软件一样直接保存，而是仍然弹出保存对话框，而我不想它打开，而是直接保存。要不然这样的话保存与另存为没区别了。
最好还能实现保存过文件，保存按钮为灰色，有改动再变亮这个功能，谁会写这段代码，或者有什么方法，教教我…………急

---

前面你说的，那得你自己判断，当保存过文件后（就是获得了用户选择的保存路径和文件名）就不要在弹出保存对话框，而是直接保存文件了。

---

具体代码是什么啊，还有第二个功能怎么实现啊

---

sFile := SaveDialog1.filename;
if not fileexists(sFile) then
begin
  if SaveDialog1.Execute then
  begin
  ... ...
  end;
end else begin
  //直接保存
end;

---

3楼的谢了，不过提示出错我原来的代码是：
procedure TForm1.Save1Click(Sender: TObject);
begin
  if SaveDialog1.Execute then
        wb1.Lines .SaveToFile(SaveDialog1 .FileName);
 
end;
要是用你这个怎么用

---

你保存的文件正在使用。

---

---

End_rbody_60447841//-->
该回复于2009-10-19 10:44:48被管理员删除



对我有用[0]
丢个板砖[0]
引用
举报
管理
TOP








newfang
(MIC)

等　级：



#7楼 得分：3回复于：2009-10-16 09:35:43


楼主意思不就是不想每次都弹出保存对话框吗？
那就判断要保存的文件是