|
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.
----------------------------------------------------------------------
|
