组件新问题？(50分)

S

shuszj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-19

• #1

我在控件定义的两个类，怎样在这个类中调用其它那个类的句柄、函数，不知是怎么创建，老是说地址是空的或是没有父窗体？
type
TTitleEvent =procedure(ACol :Integer) of Object;
TSzjGrid1 = class(tstringGrid)
private
m_sign, m_flag :Boolean; //

type
TSzjComptEditor = class(TComponentEditor)
private
SzjGridClass :TSzjGrid1;

我的SzjGridClass怎样才真正用到 SzjGridClass.m_sign 不是空值

 

雪

雪鹰

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-19

• #2

组件的构造:
constructor create(???)override....没有写好吧？

 

S

shuszj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-19

• #3

我都给它重新装载了，都不行，说是没有父窗体？
constructor create(AOwner:TComponent;ADesigner: IDesigner); override;
destructor destroy; override;


constructor TSzjComptEditor.create(AOwner: TComponent;ADesigner: IDesigner);
begin
inherited create(AOwner,ADesigner);
SzjGridClass :=TSzjGrid1.Create(AOwner);
end;

destructor TSzjComptEditor.destroy;
begin
SzjGridClass.Free;
inherited destroy;
end;

 

L

lzjnuaa

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-19

• #4

TComponentEditor的用法不是这样的
TSampleEditor=Class(TComponentEditor)
Private
procedure ExecuteVerb(Index:integer);override;
function GetVerb(Index:integer):string;override;
function GetVerbCount:integer;override;
end;

 

S

shuszj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-20

• #5

用法是这样的，我都已经可以运行，只不过我想两个类关联起来！
你可以到我的网站上去看源代码
http://shuszj.51.net/haspage/Progam_1.htm
的szjGrid源代码

 

S

shuszj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-21

• #6

多谢各位，本人已经知道怎么用了

 

S

shuszj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-20

• #7

多人接受答案了。