现在窗口里添加一个Button,一个Memo 以及一个SaveDialog 然后在Button的 OnClick事件中这样写道:
procedure TForm1.button1click(sender: TObject);
begin
if SaveDialog1.Execute then //SaveDialog1 是一个TSaveDialog 组件
&nbs
转载
精选
2013-02-27 16:48:27
1712阅读
首先向Form窗体拖一个SaveDialog控件，Name属性改为：dlgSave，然后添加一个按钮，Caption属性改为：浏览，Name属性改为：btnBrowse。 然后双击浏览按钮添加如下代码： 注：dlgSave.DefaultExt := '.dbf'; 一行实现的是我们只填写文件名默认
转载
2019-06-09 11:20:00
255阅读
2评论
首先向Form窗体拖一个SaveDialog控件 ，Name属性改为：dlgSave，然后添加一个按钮，Caption属性改为：浏览，Name属性改为：btnBrowse。 然后双击浏览按钮添加如下代码： procedure Tfoffertool.btnbrowseClick(Sender: TO
转载
2020-12-26 18:04:00
353阅读
2评论
使 SaveDialog 对话框的文件名选择变灰 - 回复 "delphan" 的问题
问题来源: http://www.cnblogs.com/del/archive/2009/03/18/1410030.html#1480550本例效果图:
代码文件:unit Unit1;
interface
u
原创
2021-04-30 22:37:45
310阅读
uses cxexportgrid4link;
var
SaveDialog: TSaveDialog;
begin
SaveDialog:=TSaveDialog.Create(nil);
with SaveDialog do
begin
Filter := '*.xls|*.xls';
if Execute then
begin
ExportGrid4ToExcel(FileName,vg
转载
2012-10-14 19:46:00
233阅读
USES cxgridExportlink procedure TfrmAdvAPS.CxGridToExcel(AcxGrid: TcxGrid); var SaveDialog: TSaveDialog; begin SaveDialog := TSaveDialog.Create(nil); ...
转载
2021-07-28 14:48:00
347阅读
2评论
uses cxexportgrid4link;
var
SaveDialog: TSaveDialog;
begin
SaveDialog:=TSaveDialog.Create(nil);
with SaveDialog do
begin
Filter := '*.xls|*.xls';
if Execute then
begin
Ex
转载
2009-07-23 18:05:00
86阅读
2评论
if ( SaveDialog->Execute() /*SelectDirectory("请选择存储目录","",Dir)*/ )
{
ExportToExcel( DBGrid,/*Dir*/ SaveDialog->FileName);
}
/**********************************
转载
2024-07-12 12:08:22
1980阅读
uses cxexportgrid4link;
var
SaveDialog: TSaveDialog;
begin
SaveDialog:=TSaveDialog.Create(nil);
with SaveDialog do
begin
Filter := '*.xls|*.xls';
if Execute then
begin
ExportGrid4ToExcel(FileName,vg
转载
2012-08-07 10:51:00
254阅读
object SaveDialog1: TSaveDialog DefaultExt = '*.jpg' Filter = '*.jpg|*.jpg''*.bmp|*.bmp|*.jpg|*.jpg' Left = 24 Top
原创
2023-06-16 11:24:34
63阅读
procedure TMainForm.As1Click(Sender: TObject); //涂磊 添加20241113 JPEG格式导出 begin SavePictureDialog.FileName := ChangeFileExt(SaveDialog.FileName, '.jpg')
//导出Excel的方法 private void ExportExcel() { DataSet ds=dtsSelect;//数据源 if(ds==null) return; string saveFileName=""; bool fileSaved=false; SaveFileDialog saveDialog=new SaveFileDialog();
转载
2007-05-24 13:47:00
170阅读
2评论
