Oprette sub properties

Prøv at nedarve din klasse, med boolean-felterne på, fra TPersistent.

// Rocco

Jeg er ret ny i komponent programmering og jeg har prøvet alt synes jeg selv.
Så jeg ville foretrække et lille eksempel der rent faktisk virker :-)

Noget i stil med:

TBooleanObj = Class(TPersistent)
Private
  FBoolValue : Boolean;
Published
  Property BoolValue : Boolean Read FBoolValue Write FBoolValue;
end;

TBooleanComponent = Class(TComponent)
Private
  FBooleanObj : TBooleanObj;
Public
  Constructor Create(Owner : TComponent); Override;
  Destructor Destroy; Override;
Published
  Property BooleanObj : TBooleanObj Read FBooleanObj Write FBooleanObj;
end;

Constructor TBooleanComponent.Create(Owner : TComponent);
begin
  Inherited Create(Owner);
  FBooleanObj := TBooleanObj.Create;
end;

Destructor TBooleanComponent.Destroy;
begin
  FreeAndNil(FBooleanObj);
  Inherited Destroy;
end;


// Rocco

Ja lige præcis. Det var den dumme create sub property jeg havde glemt.
Ved du også hvor jeg kan få den til at vise dem der er "true" ud for den post hvor +/- er ligesom den indbyggede "anchors" ?
Svar så du kan få point rocco og tak.

For at vise ligesom "Anchors", skal du lave din egen propertyeditor.
Jeg kan ikke lige huske i hovedet hvordan, men prøv at kigge i onlinehjælpen under klassen TPropertyEditor.
Der findes flere specialicerede propertyeditors, men de er desværre ikke beskrevet i onlinehjælpen. Der må du nok søge på Google (noget med +"propertyeditor" +"delphi").
Jeg ved at der f.eks. findes "TStringProperty", "TClassProperty", "TComponentProperty"...

Du skal benytte to pakker (som desværre ikke findes som DCU'er):

Uses
  DesignIntf, DesignEditors;

Idet at de ikke findes som DCU'er gør at de kun kan benyttes i dine komponentpakker, og ikke i almindelige units.


// Rocco

tak for hjælpen rocco

Velbekomme