Announcement

Collapse
No announcement yet.

published-Eigenschaft ist nicht in Eigenschaftsliste ??

Collapse
X
  • Filter
  • Time
  • Show
Clear All
new posts

  • published-Eigenschaft ist nicht in Eigenschaftsliste ??

    Ich hab da eine Komponente gemacht die eine selbstdefinierte Eigenschaft enthalten soll. Naja, eigentlich enthält die Komponente einige selbstdefinierte properties aber nur eine Eigenschaft die unter published definiert wurde ist später nicht in der Eigenschaften-Liste sondern kann nur über den Quelltext eines Programms aufgerufen und verändert werden. Woran kann das liegen. Die Eigenschaft wurde etwa wie folgt festgelegt:
    .
    .
    TDirection = (horizontal, vertical); //Hilfstyp für Eigenschaft!!!
    .
    .

    type //Typ der Eigenschaft
    Teigener_Typ = record
    Values: array[1..4] of byte;
    Text: string;
    Direction: TDirection;
    end;

    TeigeneKompo = class(TGraphicControl)
    private
    Typ1: Teigener_Typ;
    procedure SetTyp(Typ1: Teigener_Typ);
    .
    .
    published
    property Eigene_Eigenschaft: Teigener_Typ read Typ1 write settyp;
    .
    .
    Hat jemand eine Erklärung für das oder liegt der Fehler vielleicht an dem eingebundenen Array ? Ich hab leider keine Ahnung wo ich suchen muß, was vor allem auch daran liegt, dass ich erst kurz mit der Komponentenentwicklung arbeite. Darum wäre ich für jeden Rat dankbar.
    Also, danke schonmal im Vorraus.

    Bis denn dann, Detlef.

  • #2
    Vielleicht ist es so übersichtlicher(vielleicht auch nicht)<br>
    .<br>
    .<br>
    TDirection = (horizontal, vertical); //Hilfstyp für Eigenschaft!!!<br>
    .<br>
    .<br>
    <br>
    type //Typ der Eigenschaft<br>
    Teigener_Typ = record<br>
    Values: array[1..4] of byte;<br>
    Text: string;<br>
    Direction: TDirection;<br>
    end;<br>
    <br>
    TeigeneKompo = class(TGraphicControl) //Komponentenbeginn<br>
    private<br>
    Typ1: Teigener_Typ;<br>
    procedure SetTyp(Typ1: Teigener_Typ);<br>
    .<br>
    .<br>
    published<br>
    property Eigene_Eigenschaft: Teigener_Typ read Typ1 write settyp; <br>
    .<br>
    .<br&gt

    Comment

    Working...
    X