TSaveDialog怎么不自动关闭

最新推荐文章于 2018-08-07 13:49:00 发布
最新推荐文章于 2018-08-07 13:49:00 发布
阅读量422 收藏
点赞数
CC 4.0 BY-SA版权
分类专栏： Delphi
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.youkuaiyun.com/youxiazzz12/article/details/8264922
博客提到在Option中有个ofOverwritePromt属性，将其设置为true即可，但未说明具体用途。

摘要生成于 C知道 ，由 DeepSeek-R1 满血版支持， 前往体验 >

在Option中有个ofOverwritePromt属性，设置成ture即可
BCB中的“保存文件”组件类---TSaveDialog
认知 行动 坚持
01-03 9511
在很多界面软件中， 点击某按钮后， 经常弹出一个保存， 让我们选择把文件保存在哪里， 以什么文件名保存(此时， 文件作为输出)， 这是怎么做到的呢？ 其实非常简单， BCB给我们提供了现成的东东： //--------------------------------------------------------------------------- #include #pragma hdr
Delphi5实现鱼C记事本程序（TRichEdit版）
weixin_52116519的博客
08-05 961
只是简单地实现了记事本的功能，运行效果还不错，该有的差不多都有了。在“文件-替换”处有小小bug，还有很多可以完善的地方，有机会再改吧。
delphi TSaveDialog
weixin_30699443的博客
10-16 578
TSaveDialog 预览 实现过程 动态创建和使用保存文件对话框 procedure TForm1.Button1Click(Sender: TObject);beginwith TSaveDialog.Create(nil) dobeginFilter:='Text file...
Delphi的保存文件对话框-TsaveDialog
weixin_30517001的博客
08-07 859
TsaveDialog继承于TOpenDialog，只介绍以下几个内容： 1、TsaveDialog如何设定为保存的默认路径是当前程序所在的文件夹： 默认目录是当前程序所在目录应设置属性InitialDir： opendialog1.InitialDir := extractfilepath(application.ExeName); savedialog1.InitialDir :...
Tsavedialog 用法
aiyitan9175的博客
09-23 544
1. filter 属性： Filter:='模板文件(*.emt)|*.emt;*.erp'; |号前面的显示给用户界面看，后面是文件类型，超过一个的用 分号 分开。 dlgSave1.Filter:='模板文件(*.emt)|*.emt'; dlgSave1.FileName:=pData_Current.sName+'.emt'; //在 对话框打开...
使用ＢＣＢ开发的功能强大的画图板
12-09
ＢＣＢ　环境下的画图的例子，支持标准的画线、画点、画矩形等等。同时支持标准的颜色配色方案
Delphi实现Excel与Word自动化操作
此外，还有TSaveDialog用于选择文件保存位置，以及一系列按钮（如ConnectBtn、InsertDataBtn、SaveBtn等）用于触发相应的操作。 在事件处理过程中，formCreate事件是在窗口创建时调用的，可能是初始化界面或者设置...
function ToExcel(sfilename: string; ADOQuery: TADOQuery): boolean; const xlNormal = -4143; var y: integer; tsList: TStringList; s, filename: string; aSheet: Variant; excel: OleVariant; savedialog: tsavedialog; begin Result := true; try excel := CreateOleObject('Excel.Application'); excel.workbooks.add; except //screen.cursor:=crDefault; showmessage('无法调用Excel！'); exit; end; savedialog := tsavedialog.Create(nil); savedialog.FileName := sfilename; //存入文件 savedialog.Filter := 'Excel文件(*.xls)|*.xls'; if savedialog.Execute then begin if FileExists(savedialog.FileName) then try if application.messagebox('该文件已经存在，要覆盖吗？', '询问', mb_yesno + mb_iconquestion) = idyes then DeleteFile(PChar(savedialog.FileName)) else begin excel.Quit; savedialog.free; //screen.cursor:=crDefault; Exit; end; except excel.Quit; savedialog.free; screen.cursor := crDefault; Exit; end; filename := savedialog.FileName; end; savedialog.free; if filename = '' then begin result := true; excel.Quit; //screen.cursor:=crDefault; exit; end; aSheet := excel.Worksheets.Item[1]; tsList := TStringList.Create; //tsList.Add('查询结果'); //加入标题 s := ''; //加入字段名 for y := 0 to ADOQuery.fieldCount - 1 do begin s := s + ADOQuery.Fields.Fields[y].FieldName + #44; Application.ProcessMessages; end; tsList.Add(s); try try ADOQuery.First; while not ADOQuery.Eof do begin s := '' ; for y := 0 to ADOQuery.FieldCount - 1 do begin s := s + ADOQuery.Fields[y].AsString + #44; Application.ProcessMessages; end; tsList.Add(s); ADOQuery.next; end; Clipboard.AsText := tsList.Text; except result := false; end; finally tsList.Free; end; aSheet.Paste; MessageBox(Application.Handle,
最新发布
05-08
- 关闭提示对话框(`DisplayAlerts := False`) 3. **数据遍历技巧**： - 使用`while not Eof`循环处理大数据集 - 字段索引从0开始，Excel列索引从1开始需+1处理 4. **内存管理关键**： - 必须显式释放COM对象 - ...
Delphi 数据导出到 Excel 实现方法
如果用户选择不覆盖，Excel应用程序将被关闭，程序退出。 7. **数据写入**：未在提供的代码片段中显示，但通常涉及遍历`TADOQuery`（一个数据库查询组件）的结果集，然后将每一行数据写入Excel的工作表。可以使用`a...
C++Builder6文件操作详解：文件对话框与文件夹管理
C++Builder6提供了TOpenDialog和TSaveDialog组件，分别用于打开和保存文件。这些组件允许用户选择一个文件，并能自动填充文件路径、过滤文件类型等信息。 文件名和文件管理函数是进行文件操作的基础。例如，...
Delphi实现DBGrid多选数据导出到Excel
最后，如果希望在保存时关闭确认覆盖的提示框，可以在保存操作前关闭这个特性，或者在保存时直接覆盖现有文件，具体实现取决于Excel对象模型的使用。 这个Delphi程序提供了一种高效的方式来将用户在DBGrid中选择的...
我在BCB中实现消息处理的简单代码--XJQ2003
xjq2003的专栏
11-05 1794
 一-//初始化 void  INITMessage(HWND pWnd,UINT uMsgID){    pWnd= Form1->Handle;    uMsgID=WM_FILEREADY;   pWnd=FindWindow("TForm1","Form1");//这个好象可以不要          if(pWnd==NULL)                  retur
TXLSReadWriteII5 单元格读写
weixin_33737774的博客
10-07 820
unit Main; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, XLSReadWriteII5, Grids, IniFiles, Xc12Utils5, XLSShee...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值