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 � ......
这个是拦截按键消息并测试是否为ENTER键。
begin
case wParam of
WM_KEYDOWN:
fEatKeystroke := (p.vkCode = VK_RETURN);
& ......
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 ......
RT
用Delphi的越来越少了
三国要跳槽了？
是啊，马上不就到传说中的“金三银十”了吗？
引用
三国要跳槽了？
恩
去找李开复吧~~他正在招人呢？呵呵~~
招聘delphi工程师--工作地点：� ......
设有如下表显示在dbgrid中
单价 数量 总价
0.5 100 50
0.2 50 10
0.1 100 10
当我 在dbgrid 修改 当我把 第一个记录 的 单价 作修改后,焦点移开 所修改的那个单元格时, 我希 ......
