線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:2141
推到 Plurk!
推到 Facebook!

是否可以設定,不自動產生Application.CreateForm

答題得分者是:t27
fivker
一般會員


發表:24
回覆:38
積分:12
註冊:2006-12-05

發送簡訊給我
#1 引用回覆 回覆 發表時間:2009-12-15 10:17:50 IP:202.3.xxx.xxx 訂閱
在開發程式時,我從mainform進入子系統,發覺連線速度越來越慢。
後來去查程式碼,才發現,在專案檔底下,我新開發的程式,
Delphi會自動幫我產生Application.CreateForm( )。

所以處理方式
將Application.CreateForm() ,註記掉。或 從options 中的forms設定改為available forms

但是我看別人開發的程式,並不會自動產生這一段。想請教,是不是可以設定??
P.D.
版主


發表:603
回覆:4038
積分:3874
註冊:2006-10-31

發送簡訊給我
#2 引用回覆 回覆 發表時間:2009-12-15 12:05:56 IP:118.169.xxx.xxx 未訂閱
這應該是一道最基本入門的常識
1.當然可以
2.自己把 不要自動產生的CREATEFORM() 的程式碼移除即可
3.或者把AUTOCREATE 項目移到 AVAILABLE FORM 也可
4.最後自己在適當的位置自行建立呼叫, 本站已有非常的討論, 善用搜尋
fivker
一般會員


發表:24
回覆:38
積分:12
註冊:2006-12-05

發送簡訊給我
#3 引用回覆 回覆 發表時間:2009-12-15 14:04:24 IP:202.3.xxx.xxx 訂閱
抱歉,可能是我沒有表示清楚
我是希望透過設定 ,在"事前"就避免這段程式碼產生.
而不是"事後"再去移除程式碼或是移到available form

會有這個想法,是因為同事在開發同一個專案底下的程式碼時,
並不會有application.createform這一段程式碼,但是我在開發時會有

但是檢查開發環境,又看不出設定有何不同

===================引 用 P.D. 文 章===================
這應該是一道最基本入門的常識
1.當然可以
2.自己把 不要自動產生的CREATEFORM() 的程式碼移除即可
3.或者把AUTOCREATE 項目移到 AVAILABLE FORM 也可
4.最後自己在適當的位置自行建立呼叫, 本站已有非常的討論, 善用搜尋
t27
中階會員


發表:34
回覆:95
積分:90
註冊:2002-06-19

發送簡訊給我
#4 引用回覆 回覆 發表時間:2009-12-15 15:17:18 IP:61.224.xxx.xxx 訂閱
 請參考
[Tools]->[Options]->[Environment]->[VCL Designer] 取消Auto create forms & data modules
fivker
一般會員


發表:24
回覆:38
積分:12
註冊:2006-12-05

發送簡訊給我
#5 引用回覆 回覆 發表時間:2009-12-15 18:11:24 IP:202.3.xxx.xxx 訂閱
感謝t27前輩的指點,
沒錯,我的開發環境的確是有勾選起來.
(但是昨天看的時候竟然沒注意到,真是眼殘 = =)

然後產生另外一個問題.....
我剛剛去看公司同事環境的設定,(不會自動Auto create forms)
竟然也是有勾的. 真是太奇怪了

會因為我的程式copy到他的電腦,造成他的環境變數改變嗎???再研究看看@@

再次謝謝前輩的說明

===================引 用 t27 文 章===================
請參考
[Tools]->[Options]->[Environment]->[VCL Designer] 取消Auto create forms & data modules
Mickey
版主


發表:77
回覆:1882
積分:1390
註冊:2002-12-11

發送簡訊給我
#6 引用回覆 回覆 發表時間:2010-08-12 20:57:16 IP:122.117.xxx.xxx 訂閱
您好 :

潛水許久...我也正好也遇到這問題...

我在我的 dpk 專案 Register 程序中加入這段, 參考看看 :

procedure Register;
var Services: IOTAServices;
Options: IOTAEnvironmentOptions;
begin
if Supports(BorlandIDEServices, IOTAServices, Services) and
Supports(Services.GetEnvironmentOptions, IOTAEnvironmentOptions, Options) then
Options..Values['AutoCreateForms'] := 'False';
end;

註 : 我用 D2007

系統時間:2024-04-26 5:53:33
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!