怎样我把实现的一个窗体做为基类窗体加到repostiory，在new items可以继承(100分)

盛

盛利

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-21

• #1

在delphi工具栏上点击新建按钮出现
new items对话框,比如我看到cnpack页了

我现在是这样的,我继承TForm做了一个TBaseForm基类窗体,我在窗体上右键菜单中点击
add to repostiory也可以把我的TBaseForm加入到new items对话框中的一个页中了

1.我看了Borland Socket Server source code,他是只打开这个工程在new items对话框中才会出现scktsrvr页,我怎么实现?
2.scktsrvr页中的scoketform只可以inherit,我加入的TBaseForm却可以copy和inherit,我怎么实现只可以inherit
3.我现在从TBaseForm中inherit一个窗体,但我的工程中必须包含TBaseForm的pas文件
怎么实现可以在工程中不包含TBaseForm的pas文件,就象把TBaseForm的pas文件放在lib中,而且只要inherit,use中自动引用TBaseForm的pas文件，也就是说把TBaseForm加入到repostiory了，把psa文件放在什么位置合适。在new item中inherit一个窗体，怎么自动包含TBaseForm的pas文件

 

S

shangshang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-22

• #2

ｐａｓ文件放哪儿都行，比如你的工程是ｐｒｏｊｅｃｔ１，那么在你的工程中，
add file to project 把那个TBaseForm.pas文件加入工程中，
以后再新建窗体时，点新建后的New Items 中会自动有一页名为project1.
在其中找到你的BaseForm，下面是只能Ｉｎｈｅｒｉｔ的。点确定就行了啊。
恰好满足你所有要求。呵呵。

 

K

kouchun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-22

• #3

在你完成的form中按下右鍵, 然後選add to repository ,再輸入相關資料就可以了...

 

盛

盛利

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-22

• #4

kouchun:
你说的我都会，但是你加到repository，你会看到你的窗体是可以copy和Ｉｎｈｅｒｉｔ的
我怎么实现只可以Ｉｎｈｅｒｉｔ

shangshang：Borland Socket Server source code的scoketform是可以不包含在工程中的
直接use就可以了。我怎么实现这样的效果。
这么做的目的就是我以后开发的程序都是从Tbaseform继承，而Tbaseform可以不包括在工程中，放在一个公共的地方，所有的工程都用。
如果我没个工程都引用就太费劲了。
而且最好实现从new item中继承Tbaseform，自动user baseform。

 

盛

盛利

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-22

• #5

我的问题123，希望分别回答
至于怎么add to repository ，象kouchun那样的回答，谢谢你了
我已经会了，而且用的很好，但是我很多工程都用，所以想解决这些问题
把基类窗体做为公用的。就想delphi自己的Tform似的

 

S

shangshang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-22

• #6

Borland Socket Server source code的scoketform是可以不包含在工程中的
什么意思啊？　这个主窗体也可以不包含在工程中？　即使不包含，你能从这个下面再inherited?

你的要求啊，连加入工程都不想，那你考虑作个ｉｄｅ专家向导吧。

 

S

shangshang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-22

• #7

建议你，放ｐａｓ文件和ｄｆｍ到ｌｉｂ目录下。
然后每个工程加入拉倒，简单又省力

 

盛

盛利

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-22

• #8

第三个问题我也估计不合理

现在主要是12两个问题如何解决？？
1.我看了Borland Socket Server source code,他是只打开这个工程在new items对话框中才会出现scktsrvr页,我怎么实现?
2.scktsrvr页中的scoketform只可以inherit,我加入的TBaseForm却可以copy和inherit,我怎么实现只可以inherit

 

S

shangshang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-23

• #9

１，你不需要实现，ｄｅｌｐｈｉ的New items对话框中会自动把当前工程名作为一个新页显示在里面，同时工程里的所有已加入的ｆｏｒｍ都在其中列好，可以随时继承。ｓｃｋｔｓｒｖｒ根本就没有实现什么，只是ｄｅｌｐｈｉ的功能而已。你自己新建一个ｐｒｏｊｅｃｔ１试试，看ｎｅｗ　ｉｔｅｍｓ中是不是多了ｐｒｏｊｅｃｔ１这一页，里面是不是有ｆｏｒｍ１可以让你inherited!!
2,同上，你一看便知，同一工程内的类，当然只能inherited. 这些都是自动的。

 

盛

盛利

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-06-03

• #10

接受答案了.