請教各位前輩    TQuickRep報表元件中有提供儲存和開啟報表檔案(*.QRP)﹐請問有何方法可以控制此存取檔案的路徑﹖    懇請各位前輩指教﹐謝謝﹗    ================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================

------
忻晟

Hi cashxin2002,    How about custom preview form !?    You can control all the button by yourself.     ---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

感謝Fishman兄回覆    小弟指的是預設路徑（Default Path）﹒    ================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================

------
忻晟

Hi cashxin2002,    1.I mean you can control SAVE button to execute a savedialog. And you can set the InitialDir for the savedialog before you execute it.    2.If you execute a Savedialog(or OpenDialog) before QuickRep1.Preview, the default directory in preview form will be changed. < >< > ---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

感謝Fishman兄回覆    小弟這樣做的目的是利用一個空的TQuickRep報表元件﹐在程式Run的時候打開其它步驟中已經完成儲存的報表檔案（此些報表檔案的位置在專案目錄的Report Files目錄中）﹐TSaveDialog和TOpenDialog在Execute時﹐并不能控制TQuickRep元件中預設的目錄﹐請問該如何抓到TQuickRep元件中的預設目錄﹐以便更改成[專案目錄\Report Files]中﹐謝謝﹗    ================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================

------
忻晟

Hi cashxin2002,    TQRPreview : http://delphi.ktop.com.tw/loadfile.php?TOPICID=19824181&CC=443359 ---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

感謝Fishman兄為小弟做的範例﹐受教感恩﹒    ================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================

------
忻晟

再小拖一下﹐呵呵﹗    當使用QuickRep元件時﹐可否通過修改其Source﹐而達到同上面所提的控制預設開啟儲存路徑為當前Project所在的目錄﹖    ================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================

------
忻晟

Hi cashxin2002,    try this one

procedure TForm1.Button8Click(Sender: TObject);
var
  FCD : Boolean;
begin
  if DirectoryExists(Edit1.Text) then
    SetCurrentDir(Edit1.Text);
  FCD := ForceCurrentDirectory;
  ForceCurrentDirectory := True;
  QuickRep1.Preview;
  ForceCurrentDirectory := FCD;
end;

發表人 -

------
Fishman

感謝Fishman兄回覆﹒    果然是好方法﹐受教匪淺﹐感謝﹗ 還有一個小小的疑問﹕如果預設開啟和儲存的目錄在專案目錄的Report Files子目錄中﹐該如何設定呢﹖    ================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================

------
忻晟

Hi cashxin2002,    

procedure TForm1.Button1Click(Sender: TObject);
var
  CP : String;
  FCD : Boolean;
begin
  CP := ExtractFilePath(Application.ExeName);
  if DirectoryExists(CP   'Report Files') then
    SetCurrentDir(CP   'Report Files')
  else
    SetCurrentDir(CP);
  FCD := ForceCurrentDirectory;
  ForceCurrentDirectory := True;
  QuickRep1.Preview;
  ForceCurrentDirectory := FCD;
end;

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

感謝Fishman兄回覆﹗    受教了﹐感恩感恩﹒    ================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================

------
忻晟