When you register the TADSVenue entity component (with
registerComponents), also call registerClass for TBaseAttributeProperties.
The Object Inspector should then be able to understand (and expand)
it.
----- Original Message -----
Sent: Monday, August 27, 2001 2:37
PM
Subject: [DUG]: [Q] "Unable to expand" in
object inspector....
G'Day All,
I have the following:
TBaseAttributeProperties = class(TPersistent)
private FAttribComponent :
TBaseAttribute; FTitle :
string; procedure SetTitle(const Value :
string); public constructor
Create(AAtribComponent : TBaseAttribute);
procedure Assign(Source : TBaseAttributeProperties);
published property Title : string read
FTitle write SetTitle; end;
procedure
TBaseAttributeProperties.Assign(Source :
TBaseAttributeProperties); //////////////////////////////////////////////////////////////////////////////// //
PURPOSE: Property Method begin if Source is
TBaseAttributeProperties then
begin Title :=
TBaseAttributeProperties(Source).Title;
end; end;
TADSVenueEntity =
class(TBaseEntity) private
FAttCountry : TBaseAttributeProperties;
protected { Protected declarations
} public
published property AttCountry :
TBaseAttributeProperties read FAttCountry write FAttCountry;
end;
However when I try and expand AttCountry in a TADSVenueEntity
component I get an "Unable to expand...." error. Can someone see what I am
doing wrong here?
TIA
--
Donovan
----------------------------------------------------------------------
Donovan J. Edye [www.edye.wattle.id.au]
Namadgi Systems [www.namsys.com.au]
Voice: +61 2 6285-3460 Fax: +61 2 6285-3459 TVisualBasic =
Class(None); Heard just before the 'Big Bang': "...Uh Oh...."
----------------------------------------------------------------------
GXExplorer [http://www.gxexplorer.org]
Freeware Windows Explorer replacement. Also includes freeware delphi
windows explorer components.
----------------------------------------------------------------------
|