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
楼主意思不就是不想每次都弹出保存对话框吗？
那就判断要保存的文件是
相关问答：
如题。
感觉如何？交流下。
没有研究过，呵呵
有啥研究头？
那个东西，是个鸡肋，，没有什么意思，发现！！
用来做B/S架构的MIS系统的话应该可以提高界面开发的效率吧？
因为不熟悉Delphi � ......
delphi如何向Access数据表中自定义字段?然后显示到DBGrid中
怎么没人理我呀
分分忒少咧，一般人都懒得进来……*^_^*
SQL
creat table TableName(ID Counter Primary Key,FieldName varchar(20))
ADOQue ......
procedure TForm2.Button1Click(Sender: TObject);
var
i:integer;
begin
SetLength(a,200);
for I := 0 to 199 do
begin
A[i]:=Tedit.Create(self);
with A[i] do
&n ......
部门缺一到两个Delphi开发人员,据说做Delphi和C++的都不好招,公司有意找外包人员.本人有点不太乐意,如果路过的朋友,自己需要跳槽或有朋友需要跳槽的,方便的话,可以发个站内短信,或加QQ 83039548,注明求职/推荐,谢谢. ......
RT
用Delphi的越来越少了
三国要跳槽了？
是啊，马上不就到传说中的“金三银十”了吗？
引用
三国要跳槽了？
恩
去找李开复吧~~他正在招人呢？呵呵~~
招聘delphi工程师--工作地点：� ......
