Question

怎样实现固定opendialog和savedialog的打开默认路径？

Answer 1

opendialog使用：procedure Treback_infor.Button1Click(Sender: TObject);beginopendialog1.Filter*.mdb)|*.mdb';opendialog1.FilterIndex0;opendialog1.InitialDir..\data';if opendialog1.Execute=true then begin rbedit1.Text:=opendialog1.FileName; end;end;savidialog使用：procedure Treback_infor.Button2Click(Sender: TObject);beginsavedialog1.Filter*.mdb)|*.mdb';savedialog1.FilterIndex0;if savedialog1.Execute then begin savedialog1.InitialDir.\reback'; savedialog1.FileName:=savedialog1.FileName+'.mdb'; rbedit2.Text:=savedialog1.FileName; end;end;但是效果好像总是衣opendialog上一次打开的路径为准，所写代码不起作用。是否是因为没有打包文件，没有安装程序的原因？ 查看原帖>>