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
楼主意思不就是不想每次都弹出保存对话框吗？
那就判断要保存的文件是
相关问答：
我在模块里自定义了一个函数:stradd()
可是在adoquery1.sql.add('select stradd(author) from book');
时提示stradd未定义...
这个问题有什么办法可以解决的吗? 非常感激!
(在A ......
我安装的是企业版。。。
我问下， CTRL+左键 能查看 windows.pas 吗？
就是 接口里的windows。
当然可以,CTRL+左键点击Interface部分的Windows就可以了
啥啥企业版？去安装目录看看lib文件夹下有没� ......
delphi 下可有源码 实现内存池 固定分配内存池大小的。。内存池满后自动转储数据到。。指定的一个临时文件，
不知道可否哪位兄弟做过类似的例子。。。。。最好有演示源码。。。谢谢
搜一搜,总会有...
......
HTML code:
<th scope="col">快件单号</th><th scope="col">操作时间</th><th scope="col">快件流程</th>
</tr><t ......
请教大家一个问题，delphi不用控件调用SQL SERVER存储过程。 如下面语句：
....//前面的语句我就省略了
strSQL:='UP_READREQ '+''''+strApplyID+''''+,+strNo+', ......
