关于属性的继承，请大家来帮忙！ ( 积分: 100 )

Y

yzykjh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-26

• #1

TAA = class(TComponent)
private
procedure SetPurview(Value: boolean);
published
property Purview: boolean read fPurview write SetPurview;
end;

TBB = class(TAA)
private
procedure SetPurview(Value: boolean);
published
property Purview: boolean read fPurview write SetPurview;
//请问TBB怎样才能执行TAA类的Purview，又执行TBB的Purview；
//也就是TBB继承TAA的Purview属性，同时也要执行自己Purview的代码内容。
end;

 

Y

yzykjh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-26

• #2

TAA = class(TComponent)
private
procedure SetPurview(Value: boolean);
published
property Purview: boolean read fPurview write SetPurview;
end;

TBB = class(TAA)
private
procedure SetPurview(Value: boolean);
published
property Purview: boolean read fPurview write SetPurview;
//请问TBB怎样才能执行TAA类的Purview，又执行TBB的Purview；
//也就是TBB继承TAA的Purview属性，同时也要执行自己Purview的代码内容。
end;

 

C

Corn3

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-26

• #3

TAA = class(TComponent)
private
procedure SetPurview(Value: boolean); [red]virtual;[/red]
published
property Purview: boolean read fPurview write SetPurview;
end;

TBB = class(TAA)
private
procedure SetPurview(Value: boolean); [red]override;[/red]
published
property Purview: boolean read fPurview write SetPurview;
end;

 

Y

yzykjh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-26

• #4

To: Corn3
TBB提示SetPurview没有找到基类。你试了吗？

 

C

china_bill

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-26

• #5

procedure TBB.setPurview(value: boolean);
begin
Showmessage('TBB類SetPurview');
inherited;//加上this code

end;

 

Y

yzykjh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-30

• #6

TAA = class(TComponent)
private
published
procedure SetPurview(Value: boolean); virtual;
property Purview: boolean read fPurview write SetPurview;
end;

TBB = class(TAA)
private
procedure SetPurview(Value: boolean); override;
published
// property Purview: boolean read fPurview write SetPurview;
end;

 

Z

zjl77848

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-30

• #7

这样做有什么用吗？