請問 Delphi 是如何將個 Program gen 做 .exe ? 另外想問就是如何寫列印的功能 ? 叫出 PrintDialog 之後, 我不懂得如何打印. 而且我想設定打印的字形及大小. 請各位教教我呢...

您好﹗    Delphi會為每一個專案產生一個副檔名為.DPR(Delphi Project)的檔案﹐這個檔案包含了Delphi的程式執行順序﹐并且指明表格檔或是程式檔的實際路徑位置﹐一般來講﹐這個檔案都必須是由Object Pascal程式所組成﹐當您編譯或執行專案﹐Delphi的編譯器會自動的產生和Delphi同檔名的執行檔（.EXE）或者動態連結函式庫（.DLL） 使用RichEdit元件﹑OpenDialog元件和PrintDialog元件舉例列印如下﹕ Procedure TForm1.ButtonOpenClick(Sender: TObject); begin if OpenDialog1.Execute then RichEdit1.Lines.LoadFromFile(OpenDialog1.FileName); end; Procedure TForm1.ButtonPrintClick(Sender: TObject); begin if PrintDialog1.Execute then RichEdit1.Print; end; //有關設定打印的字形及大小設定﹐可以在程式執行時﹐當PrintDialog對話框開啟后﹐在對話框中的內容按鈕中進行設定﹐其也就是PrintSetupDialog對話框功能﹒ 參考看看﹗ ===================== 努力,相信會獲得美麗! 忻晟

------
忻晟

引言: 您好﹗ Delphi會為每一個專案產生一個副檔名為.DPR(Delphi Project)的檔案﹐這個檔案包含了Delphi的程式執行順序﹐并且指明表格檔或是程式檔的實際路徑位置﹐一般來講﹐這個檔案都必須是由Object Pascal程式所組成﹐當您編譯或執行專案﹐Delphi的編譯器會自動的產生和Delphi同檔名的執行檔（.EXE）或者動態連結函式庫（.DLL） 使用RichEdit元件﹑OpenDialog元件和PrintDialog元件舉例列印如下﹕ Procedure TForm1.ButtonOpenClick(Sender: TObject); begin if OpenDialog1.Execute then RichEdit1.Lines.LoadFromFile(OpenDialog1.FileName); end; Procedure TForm1.ButtonPrintClick(Sender: TObject); begin if PrintDialog1.Execute then RichEdit1.Print; end; //有關設定打印的字形及大小設定﹐可以在程式執行時﹐當PrintDialog對話框開啟后﹐在對話框中的內容按鈕中進行設定﹐其也就是PrintSetupDialog對話框功能﹒ 參考看看﹗ ===================== 努力,相信會獲得美麗! 忻晟

多謝指教! 有關列印的問題. 我可否用 Memo 來做呢 ? 另外其實我係列印時格式是有特別要求的.. 例如我希望在memo 中打上 你好嗎? 黃飛鴻 但列印時我希是在紙張的左上以橫書式印 你好嗎? 然後在同行的右上方開始以直書式印 黃 飛 鴻 那麼我應該怎辦呢 ?

有沒有人可以再教教我呀 ? 麻煩各位再指導指導 ...

引言: 有沒有人可以再教教我呀 ? 麻煩各位再指導指導 ...

可以用printer.canvas來打印字體 如 uses printers; procedure TForm1.Button1Click(Sender: TObject); var x,y:integer; begin x:=100; y:=100; printer.begindoc; printer.canvas.textout(x,y,'黃'); printer.canvas.textout(x,y 100,'飛'); printer.canvas.textout(x,y 200,'鴻'); printer.enddoc; end; ～～～Delphi K.Top討論區站長～～～

我已經順利完成我的 Projects 了 ... 多謝兩位的指導 .. 感激感激 !