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