RSS订阅 | 匿名投稿
标签

delphi OpenDialog1 添加文件打开多选模式

opendialog1.Options:=opendialog1.Options+[ofAllowMultiSelect];//打开文件多选模式ifOpenDialog1.Execute()thenbeginMemo_Attachment.Lines.AddS****ings(opendialog1.Files);//添加多个文件//Memo_Attachment.Li…
类别:文件 作者:admin 日期:2018-01-29 12.46.23 点击:142 评论:0

delphi opendialog设置默认打开路径

错误的:path1:=ExtractFilePath(application.ExeName)+'\databack';ifDirectoryExists(path1)thenbeginOpenDialog1.InitialDir:=path1;end;OpenDialog1.Execute;正确的:path1:=ExtractFilePath(application.ExeNam…
类别:组件 作者:admin 日期:2018-01-12 13.06.52 点击:108 评论:0