請教各位          在package內使用繼承          圖一是我在網路抓的範例              在                 requires                        package1.dcp90(baseform)       圖二是我試做的範例----使用repuires>>new items               在                  contains                      ugoo1(baseform)          1.我試做的對不對,可以這樣做嗎? 2.我這樣做沒有辦法將繼承form(baseform>inheritform)與 繼承form在繼承的form(baseform>inheritform1>inheritform2) 放於同一個package內, 除了從新作一個baseform外有其他辦法嗎?

看来你是不知道Form可以加入到Object Repository里。    New Items里看到的是当前project/dpk里的Form。你可以在任何form上单击右键，选取“Add to repository...”把这个Form加到Object Repository里，这样在别的project也可以于New Items里看到此Form。     久病成良医--多试 千人之诺诺,不如一士之谔谔--兼听

------
江上何人初见月，江月何年初照人

mustapha.wang 您誤會我的問題了 (第一個問題您回覆後我就有試做,5-6年沒碰delphi了) 我的意思是說 在圖一 範例是將package的baseform加在 repuires內 再圖二 我試做用Repository 繼承的方式是加在 contains 內 我有看一些文件說是不正確的 1. 我試做的建立完成後將在 contains 內的移除 另外在repuires內增加 2. 我用我試做的程式有加到同一個 project可以一起使用 但我看一些文件 如 何 使 用 Delphi 開 發 大 型 主 從 架 構 系 統.... 都說要設定在repuires才不會因名稱重複無法使用

mustapha.wang 抱歉提出的問題語意有點問題重新整理!!! 1. 我試做的package2建立完成後package1是加在 contains 內是否將 contains 內的移除另外在repuires內增加就變成圖一範例? 2. 我用我試做的程式增加幾個package(有三層的)加到同一個 project卻可以一 起使用??? 但我看一些文件 如 何 使 用 Delphi 開 發 大 型 主 從 架 構 系 統.... 都說要設定在repuires才不會因名稱重複無法使用 謝謝您的回覆!!!!

1.对的，当在requires部分加入dcp后，如果不在contains部分移出祖先unit，编译的时候，delphi也会提醒你必须移出。 2.是的，因为当你同时载入两个package时，两个package不能包含名称相同的unit（直接间接都不行，你试试马上就知道了）。解决的办法是把被引用的unit所在的package加入到后面的package的requires部分，建立package的包含关系。     久病成良医--多试 千人之诺诺,不如一士之谔谔--兼听

------
江上何人初见月，江月何年初照人