你好 小地在這想跟您請教一下 關於如何開新form 的問題 您之前曾有建議我看一下您的電子報 我有趣看過了 裡面的程式 提到了各式的技巧 都是很有用的範例 不過有點問題 程度不夠 看了不是很寮解 ^^" 我又找到您 a29 的範例 並且去找其中關於 開新form 的部分 我先大約的描述一下我看懂的部分 一開始 acc 會去 crlogin 確認是否有成功登入帳號 接下來 便執行 main 的 crmain 的部分... 然後我依樣畫葫蘆... 不行 >< 能不能請您提示一下 需要注意的部分呢?

你講的部分有點含糊,不知道你的問題在哪,個人認為 1.或許你是沒有看到project source的部分 2.login 程式中procedure crlogin的程式部分沒有注意,請注意其回傳值的判斷    

引言: 你好 小地在這想跟您請教一下 關於如何開新form 的問題 您之前曾有建議我看一下您的電子報 我有趣看過了 裡面的程式 提到了各式的技巧 都是很有用的範例 不過有點問題 程度不夠 看了不是很寮解 ^^" 我又找到您 a29 的範例 並且去找其中關於 開新form 的部分 我先大約的描述一下我看懂的部分 一開始 acc 會去 crlogin 確認是否有成功登入帳號 接下來 便執行 main 的 crmain 的部分... 然後我依樣畫葫蘆... 不行 >< 能不能請您提示一下 需要注意的部分呢?

[quote] 你講的部分有點含糊,不知道你的問題在哪,個人認為 1.或許你是沒有看到project source的部分 2.login 程式中procedure crlogin的程式部分沒有注意,請注意其回傳值的判斷 [quote] 你好 謝謝你的回答 不過我想問的部分 應該是 如何不用 autocreate forms 自己手動 create form ... 不好意思 實在是基本的問題

那你直接看login的procedure crlogin或 main的crmain就可以了 要create form上面有說明方式,或者你可以下載Delphi程式設計感想

引言: [quote] 你講的部分有點含糊,不知道你的問題在哪,個人認為 1.或許你是沒有看到project source的部分 2.login 程式中procedure crlogin的程式部分沒有注意,請注意其回傳值的判斷 [quote] 你好 謝謝你的回答 不過我想問的部分 應該是 如何不用 autocreate forms 自己手動 create form ... 不好意思 實在是基本的問題

謝謝您 我在去找找看 ^^    

引言: 那你直接看login的procedure crlogin或 main的crmain就可以了 要create form上面有說明方式,或者你可以下載Delphi程式設計感想

引言: [quote] 你講的部分有點含糊,不知道你的問題在哪,個人認為 1.或許你是沒有看到project source的部分 2.login 程式中procedure crlogin的程式部分沒有注意,請注意其回傳值的判斷 [quote] 你好 謝謝你的回答 不過我想問的部分 應該是 如何不用 autocreate forms 自己手動 create form ... 不好意思 實在是基本的問題

不好意思 我又來了 去看您的 程式設計感想後 還是不懂.. @@ 我將我的程式段貼上來 請您幫忙看一下 麻煩您了 ^^" 這邊是 form1 unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation uses Unit2; {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); begin form2.crf2; end; end. 這邊是 form2 的程式 unit Unit2; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs; type TForm2 = class(TForm) private { Private declarations } public { Public declarations } end; var Form2: TForm2; procedure crf2; implementation {$R *.DFM} procedure crf2; begin Application.CreateForm(TForm2, Form2); end; end.

你的procedure crf2宣告並非是form2的procedure,因此應該改成 procedure TForm1.Button1Click(Sender: TObject); begin    crf2; end;    

引言: 不好意思 我又來了 去看您的 程式設計感想後 還是不懂.. @@ 我將我的程式段貼上來 請您幫忙看一下 麻煩您了 ^^" 這邊是 form1 unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation uses Unit2; {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); begin form2.crf2; end; end. 這邊是 form2 的程式 unit Unit2; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs; type TForm2 = class(TForm) private { Private declarations } public { Public declarations } end; var Form2: TForm2; procedure crf2; implementation {$R *.DFM} procedure crf2; begin Application.CreateForm(TForm2, Form2); end; end.